open my $fd, '<', $ARGV[0] or die $!;
while (<$fd>) {
...