Select Code to Download

use vars '$foo';
$foo = 'foo';
{
    my $foo = 'bar';
    print "'$foo'\n";
}

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

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

use vars qw( %s @weeks );
%s = (
...
);

@weeks = ( 'TEAM 1', 'TEAM 2', 'TEAM 3', 'TEAM 4' );