my $upd_sth = $dbh->prepare(q{
      update psinfo 
      set    port=?, last_checked=getdate()
      where  domainname=?
});
$upd_sth->execute($myport, $line) 
  or die "unable to update: name=$line! error\n$DBI::errstr\n";