Please, take a look at this code. It opens a txt file and email the =
users. But each user always gets two emails. Any clue?
open (DAT,"<$memberinfo/amdata.db");
if ($LOCK_EX){=20
flock(DAT, $LOCK_EX); #Locks the file
}
@database_array =3D ;
close (DAT);
foreach $line(@database_array) {
@user
Urgent, please. Maybe this is an offtopic.
I'm using the Date::Manip mod from CPAN.
This code works fine:
#!/usr/bin/perl
print "Content-type: text/html\n\n";
use Date::Manip;
$days=&Date_DaysInYear("2000");
print qq~$days~;
exit;
But this doesn't.
#!/usr/bin/perl
print "Content-type: text/htm
