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