Unsubscribing from MySQL and Perl