Language Basics Perl

while(  ) {print ;}
print "The value of \$ARGV[0] is $ARGV[0].\n";