require schedule;

print "\$smonth is $schedule::s_month ,\$sday is $schedule::s_day, \$syear is $schedule::s_year\n";