demo_unclass.pl   [plain text]

package Foo;
use Class::Std;

package main;

$obj = Foo->new();
$obj = Bar->new();