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

package Foo;
$Foo::VERSION = '.01';
package main;
$|++;
print Foo->VERSION,$/;
$main::VERSION = '.02';
print main->VERSION, $/;
print $main::{'VERSION'},$/;
print Foo->asdf;

##</code><code>##

.01
.02
*main::VERSION
Can't locate object method "asdf" via package "Foo" at ./test.pl line 12.