Select Code to Download

use Term::ReadLine;
my $term = Term::ReadLine->new;
...
}
my $in = $term->readline("Input: ");
print "Got input: \"$in\"\n";

$ echo -e "Hello\nWorld" | perl in.pl 
Got line: "Hello"
...

Input: test
Got input: "test"