Package??

Hi all,

I am having some questions regarding following codes:

use warnings;

$name = "sanket";
$fred::name = "Fred;

print "In main name = $name\n";

package Fred;
print "Now name = $name";

The output will be as expected:
In main name = sanket
Now name = Fred


Now if I use "strict" then code becomes

use warnings;
use strict;

my $name = "sanket";
$fred::name = "Fred;

print "In main name = $name\n";

package Fred;
print "Now name = $name";

The output is
In main name = sanket
Now name = sanket

why so?

why the out put is not:
In main name = sanket
Now name = sanket

• Package?? by sanket