fork download
  1. #!perl
  2. print "Enter some lines, then press Ctrl-D:/n";
  3. @lines = <STDIN>;
  4. print reverse <STDIN>;
Success #stdin #stdout 0s 4596KB
stdin
Standard input is empty
stdout
Enter some lines, then press Ctrl-D:/n