Select Code to Download

use warnings;
use strict;
...
EOS

print "[[$s]]";

c:\@Work\Perl\monks\Anonymous Monk\1197277>perl hiccup_here_1.pl
[[line 1
...
line penultimate
line the last
]]