my $file = $ARGV[0];
open (my $input, '<', $file) or die("Cannot open file $file: $!");
while($input>) {
}
close ( $input );