#!/usr/bin/perl -w

use strict;
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday);

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday) = gmtime(time); 
$year += 1900;

print "Dude, the year is: $year\n";
my $year2 = sprintf("%02d", $year % 100);
my @month;
$month[8] = "September";
print "Dude, the 2-year date is: $year2 and the month is $mon == $month[$mon]\n";

exit;

