Help!

[Sasa STUPAR]

Hi!

I am new to perl. I have written a script to automatically subscribe to
the mailing list. The part of the script is here:
---------------------------------------------
open (FILE,"/var/www/mlusers.tab");
        @linesaddr=<FILE>;
   $countaddr=@linesaddr;
   if ($countaddr!=0) {
       foreach $lineaddr (@linesaddr) {
       @itemaddr=split(/\t/,$lineaddr);
       my $testn = @itemaddr[0];
       $testn1 = "\"".$Config{'email'}."\"";
                if ($testn eq $testn1){
    $alrd = 1;
    }
   }
  }
        close (FILE);
        if ($alrd == 1) {&already_subscribed}
        else {
                open(STAT,">> /var/www/mlusers.tab");
        print STAT "\"".$Config{'email'}."\""."\t"."\"RW\""."\n";
                close(STAT);
                &return_html;
        }
-------------------------------------------------------
Now I would like to also write to automatically unsubscribe from the
mailing list but I am stuck. I don't know and I didn't find how to
remove one complete line from the text file.
Here the text file is mlusers.tab. So each line has to have <NEWLINE>
mark and in between the filled lines there should not be empty lines.
Can somebody help me with this ?

Thanks,

Sasa


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]