Select Code to Download

my ($sec,$min,$hour) = qw( 0 0 12 );
my ($mday, $mon, $year) = qw(11 5 2007);
...
} else {
    print "Yay";
};