Select Code to Download

{
    my %working_dir_of;
...
sub get {
    ...
}

my %working_dir_of;

sub get {
   ...
}

#!/usr/bin/perl
use strict;
...
meth('hash','foo');
__END__
bar

my( %dbh_of, %dir_of, ...);

...
        carp("Invalid attribute '$attr'");
    }
}