Select Code to Download

require schedule;

print "\$smonth is $schedule::s_month ,\$sday is $schedule::s_day, \$s
+year is $schedule::s_year\n";