my $upd_sth = $dbh->prepare("update psinfo set port=\'$myport\' where domainname=\'$line\'");
$upd_sth->execute() or die "unable to execute update line where name is $line! error $DBI::errstr";

##</code><code>##

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";