view release on metacpan or  search on metacpan

eg/myutil_load_test_db.pl  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;

use lib qw(. .. ../t);

require 'testlib.pl';

########################

my ($host, $dbname) = load_db();
print "loaded $dbname on $host\n";

##################################