my $file = $ARGV[0];

##</code><code>##

my $file = shift @ARGV;

##</code><code>##

while(<>) { }