my $dbh = DBI->connect(
    'DBI:mysql:*********', 
    '*****', 
    '*****', 
    {RaiseError => 1 , AutoCommit => 1}
) || die "Can't Connect: $!";

my $sth = $dbh->prepare(<<END_SQL);
    UPDATE inventory 
    SET img="$short_name", thumb="$short_tname" 
    WHERE partno="$img_name";
ENDSQL
$sth->execute;