Select Code to Download

use strict;

...
   print "Line $. ends date $lastdate";
   $lastdate = $date;
}

__DATA__
10
...
Line 7 ends date 11
Line 9 ends date 12