Select Code to Download

package MyDB;

...
}

1;

#!/usr/bin/perl
use strict;
...
my $test = $dbh->get_sites();
print Dumper $test;