Select Code to Download

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 i
+s $line! error $DBI::errstr";

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