Select Code to Download

my @chain = get_chain($employee);
foreach my $emp (@chain) {
...
        return ( \%link );
    }
}

use strict;
use DBI;
...
# $dbh->disconnect;

__END__