my $ret = $smtp->data(<<'EOM'); 
From: $email 
To: $unsubscribe 
Subject: 

EOM