Select Code to Download

#!/usr/bin/perl -w
use strict;
...
insert into person (name) values ("Kudra");
insert into person (name) values ("vroom");
insert into person (name) values ("jcwren");

#!/usr/local/bin/perl -w

...
my $person = 
    MyCompany::MyProduct::Database::Person->retrieve(3);
print Dumper $person;