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