Select Code to Download

sub
Write_Bar
{
$dbh->do("INSERT INTO bar (Foo,Fob,Fib) VALUES ('baz','biz','boz')");
}

sub
Write_Bar
...
my $dbh = shift;
$dbh->do("INSERT INTO bar (Foo,Fob,Fib) VALUES ('baz','biz','boz')");
}