open FIN, $ARGV[0] or die $!;
my @lines = <FIN>;
close FIN or warn $!;