use strict;
$main::foo = 'bar'; # that's ok

##</code><code>##

use strict;
$foo = 'bar'; # error!!! it doesn't work with strict pragma!

##</code><code>##

#!/usr/bin/perl

use strict;
use pkg1;

$main::foo = 'bar';

print pkg1_get_foo()."\n";

##</code><code>##

use strict;

sub pkg1_get_foo {
    return "From pkg1: $main::foo";
}

1;