read a file from the command line in perl

to read in a file and print its contents (filename specified as the first command-line argument):

my($my_file) = $ARGV[0];
open(MYFILE,$my_file);

while ()
{
print $_;
}