open (my $file, '<', $ARGV[0]) or die $!;