$rec_sep=$/;
undef $/;
$slurp=<INPUTFILE>;
print "Enter something: ";
$something=<STDIN>;