unless (open(INPUT, "$inputfile"))
    {
    print "ERROR: Can't open file for reading : $!\n";

    }