[MacPerl-Forum] Filereading into $addresses scalar / simple problem?

[Jimmy Lantz <webmaster@ostas.lu.se>]

Hi I'm using the Mail::Sendmail program and I'm trying to take
emailaddresses from a textfile (see below)
But it wont work, Any ideas??
It says there's no recipent.

Pls help me.
Jimmy Lantz

$meddelande ="Hello and goodbye";
$amne ="Hello and goodbye";
############################
#Make Mail
use Mail::Sendmail;
%mail = (  Bcc	=> "$bcc",												From   =>
'webmaster@ostas.lu.se',								Message => "$meddelande",
		Subject => "$amne"
								);
sendmail(%mail) or die $Mail::Sendmail::error;
&do_reply;
exit;

 
sub do_bcc
{
open(INFO, $datafil);
@lines = <INFO>;
close(INFO);		
$bcc = @lines;
}


###############The datafile contents##########
webmaster@ostas.lu.se,
webmaster@ostas.lu.se,
webmaster@ostas.lu.se,
webmaster@ostas.lu.se,

==== Want to unsubscribe from this list?
==== Send mail with body "unsubscribe" to macperl-forum-request@macperl.org