Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
print "\$. is ", $., $/;
...
print "Press <enter> to continue.\n";
my $input = <>;
print "\$. is now ", $., $/;