package Foo;
    
    $VAR1 = "VAR1 in package 'Foo'.";
    
    package main;
    
    $VAR1 = "VAR1 in package 'main'.";
    $VAR2 = "VAR2 in package 'main'.";
    
    print $Foo::VAR1, "\n";
    print $VAR1, "\n";
    print $VAR2, "\n";