Select Code to Download

package Foo;
use strict;
...
sub method1{}
sub method2{}

my $foo = Foo->retrieve(1); # for row with id 1.
$foo->method1();