Shell Programming and Scripting

#!/usr/local/bin/perl

$date_today = system "date '+%y%m%d'";
print "$date_today\n";

$ perl test4
080908
0

sub get_timestamp {
        @months = qw(Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec);
        @weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
        ($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
        $year = 1900 + $yearOffset;
        $theTime = "$hour:$minute:$second|$weekDays[$dayOfWeek].$months[$month].$dayOfMonth.$year";
        return $theTime;
}