Time Stamp Code - Perl

gistfile1.pl

# Some code for creating timestamps

@months = qw(01 02 03 04 05 06 07 08 09 10 11 12);
@weekDays = qw(01 02 03 04 05 06 07);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$year = 1900 + $yearOffset;
$theTime = "$hour:$minute:$second, $weekDays[$dayOfWeek] $months[$month] $dayOfMonth, $year";

if ( $dayOfMonth > 9 )
{ 
   $dt = $months[$month] . "/" . $dayOfMonth . "/" . $year; 
   $rundate = $year . $months[$month] . $dayOfMonth;
}
else
{
   $dt = $months[$month] . "/" . '0'.$dayOfMonth . "/" . $year; 
   $rundate = $year . $months[$month] . '0'.$dayOfMonth;
}