Select Code to Download

package obj;

use 5.010;
...
}

1;

use strict;
use warnings;

...

my $o = obj->new();
$o->run();