Select Code to Download

package Module;
use Attribute::Handlers;
...
    return bless($self, $class);
}
1;

#!/usr/local/bin/perl

...
my $obj               = Module->new();

print "CLASS: " . ref($obj) ."\n";