There's a couple of problems that sound get you started. The first I
see is that @_ is an array containing everything that was passed in. So
when you did
@parms = @_;
The values of each element of @parms are as follows
$parms[0] # first parameter which was $email
$par
> @parms = @_;
> ($user, $user_list, $tag) = split /,/, $parms;
Did you mean:
my($user, $user_list, $tag) = @_;
Try using:
use strict;
at the top of every script. The problem is that @parms is not $parms.
In fact, $parms is undefined, and use strict would point out this
error. Yo
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 = ;
$msg->subject('Password
