view release on metacpan or  search on metacpan

eg/myutil_drop_test_db.pl  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;

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

require 'testlib.pl';

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

my ($host, $dbname) = drop_db();
print "dropped $dbname on $host\n";

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