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

##</code><code>##

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