$Console = "con"; open(IN,"$Console") || die "Can't open $Console, $!\n"; $| = 1; print "Please enter data here: "; $Input = ; chop $Input; print "Input = $Input\n"; close(IN);