Insert Time Into Datetime Field (perl)

insert the current time into a
datetime field in a table while using perl DBI/DBD::mysql
from http://osdir.com/ml/db.mysql.perl/2006-09/msg00001.html

#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect( "DBI:mysql:test", "root", "");
my $sth = $dbh->prepare( "INSERT INTO a VALUES ( NOW() )" );
$sth->execute();
$sth->finish();

$sth = $dbh->prepare( "SELECT a FROM a" );
$sth->execute();
my ( $time ) = $sth->fetchrow_array();
$sth->finish();

print "The time was [$time]\n";

$dbh->disconnect();

__END__

CREATE TABLE a (
 a datetime NOT NULL default '0000-00-00 00:00:00'
) TYPE=MyISAM;