if (! defined $in) {
    die "Usage: $0 <filename>\n\n\tYou must supply a filename when calling this script, otherwise it does not know what file to read\n";
}