select(STDERR);$|=1;select(STDOUT);$|=1;   # autoflush
print "This is the prompt: ";
my $input = <STDIN>;
print "done.\n";