Global Variables

How can I set and access global variables?

The following script prints 'tweetie sylvester' when run locally, but 
when run as a CGI script, it only prints: 'tweetie'.

#!/usr/bin/perl -w
use strict;

my $var = 'tweetie';

if ($var) {
     local $main::var = 'sylvester';
}

print "Content-type: text/html\n\n";
print $var, ' ', $main::var, "\n";
exit 1;

__END__
-- 
My brain hurts!
SeanC
                      Mediatek Training Institute
            26 Crart Ave., Berea, Durban, South Africa
    phone: +27 (0)31 202 1886              [email protected]
       fax: +27 (0)31 202 1767
                   <http://members.nbci.com/s_carte/>