if (!$ARGV[0]){
    print "Input File:\n";
    $fn = ;
    chop($fn);
    }