Select Code to Download

$|++;
for (split //, "Just a proud\b\b\b\b\b\bnother Perl hacker,\n") {
  print;
  select (undef, undef, undef, 0.3);
}

$| = 1;
while (read(STDIN, $buf, 1)) {
  print $buf;
}