Select Code to Download

package one;
sub new {
...
    return($self);
}
1;

#!/usr/bin/perl
use Data::Dumper;
...

my $x=one->new();
print(Dumper($x));

$VAR1 = bless( {
                 'test' => 'test'
               }, 'one' );