[...]
my $stmt = $dbh->prepare("insert into test1 values(FROM_UNIXTIME(?))") or die("couldn't prepare insert: " . $@);
$stmt->execute(time()-$old_time) or die ("couldn't perform insert: " . $@);
[...]