Select Code to Download

#! /usr/bin/perl
...
my $end = ctime() ;

print "Started $start\n  Ended $end\n\n" ;

print $one++