in reply to Mail::Sendmail variables

Did you set the value of the variables in your script?

my ($email, $subject) = @_;

my $subject = shift;
my $email = shift;