Select Code to Download

#!/usr/bin/perl -w
  use strict;
...
    }
  }

a
b
...
1
2
3

z
y
x
w

$ ./perl/tst.pl 
] m
...
] INFO: Current IO: tst.bat
] INFO: Current IO: STDIN
] No other input. Ending. at ./perl/tst.pl line 41, <STDIN> line 17.