Select Code to Download

use warnings;
use strict;
...
my $test = Test->new('steve', '/home/', 'perl');

print Dumper $test;

sub new {
    my $obj = bless {}, shift;
...

    return $obj;
}