Passing Variables in Subroutines

[pbbruce]

Hi,

  I have this small problem of being able to pass routines.

send_mail( $email, '','');

sub send_mail {

    $msg = new Mail::Send;

    @parms = @_;
    ($user, $user_list, $tag) = split /,/, $parms;

    $msg->to($user);
    print "User is $user\n";
    $ans = <STDIN>;
    $msg->subject('Password Notification');
    $msg->cc($user_list);
#    $msg->bcc('someone@else');

    # Launch mailer and set headers. The filehandle returned
    # by open() is an instance of the Mail::Mailer class.

    ($user, $user_list, $tag) = split /,/, $parms;

    $msg->to($user);
    print "User is $user\n";
    $ans = <STDIN>;
    $msg->subject('Password Notification');
    $msg->cc($user_list);
#    $msg->bcc('someone@else');

    # Launch mailer and set headers. The filehandle returned
    # by open() is an instance of the Mail::Mailer class.


    $fhm = $msg->open;


    print $fhm "This is a notification of password reset. \
                You must change your password Immediately \
                Your temporary Password is your UID + EMPLOYEE ID .
                ";

    $fhm->close;
}

The intent here is to pass the users email address and send out the
notification.


What happening is that the print statement for the users is coming out
to nothing.
Any suggestions?