Select Code to Download

my $SQL = "UPDATE mytable SET subscribed = '0',
                          unsubscribedby = 'SYSTEM'
...
    chomp $md5; # I'm assuming a newlines is bungling your update
    $sth->execute( $md5 ) or die "Can't execute $SQL";
}