Select Code to Download

#!/usr/bin/perl

...
print "My Test\n";
$m->Func1();
$m->Func2("Fluffy", 5);

package mymodule;

...
    my ($class, $name, $value) = @_;
    print "hi $name, value $value\n";
}

My Test
Hi there
hi Fluffy, value 5