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

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

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