Select Code to Download

sub NOW {
...
# Needs to be in
}
$sth->execute(NOW());

my $sth = $dbh->prepare(q{
    INSERT INTO t ( foo, bar, time ) VALUES (?, ?, NOW() )
});

$sth->execute($foo, $bar);