#/usr/bin/perl -w
use stict;

print "Started: strftime( "%a %b %d %T %Z %Y", localtime )\n";

# stuff done here

print "Stopped: strftime( "%a %b %d %T %Z %Y", localtime )\n";