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