Why not:

my $sql1 = qq{ INSERT INTO table VALUES (
    current_timestamp,
    ?
    )
    }; 

my $sh = $dbh->prepare( $sql1 ) or die "huh?" . $dbh->errstr;
$sh->execute( $var ) or die "Huh?" . $dbh->errstr;
$sh->finish;
[download]