Select Code to Download

package MyTest;
use warnings;
...


return 1;

#!/usr/bin/perl
use warnings;
...
my $tst = MyTest->new();

$tst->test();