Name Program in Perl

"name" program in perl version 1