use vars
    qw( $s_month $s_day $s_year $week_1 $week_2 $week_3 $week_4 );

requre schedule;

$s_day  = 2;
$s_year = 2000;
print "\$smonth is $s_month ,\$sday is $s_day, \$syear is $s_year\n";