open (AN, $ARGV[0] ) or die "$!\n";
open (IN, $ARGV[1]) or die "$!\n";