for (1..3) {
    print "$_: ";
    system(qw( perl -wle ), "print scalar <STDIN>");
}