# use this method if you think it is better...

# I did this one after I learnt a bit more perl!

##

# munge the output data

#

while (<SOCK>) {

   $line = $_;

   ($a, $curfrm, $b, $curto, $c, $d) = split(' ',$line);

}

if ($a = "T") {

# do some sums

$msgsfrm = $curfrm - $oldfrm;

$msgsto = $curto - $oldto;

chomp $msgsfrm;

chomp $msgsto;    

# open the old file for overwrite

open (OLD,">/tmp/mailstat.old") or die "can't open file!\n";

# print the data for mrtg

  print "$msgsfrm\n$msgsto\n1\n$remote\n";

# print the data to the old file

print OLD "$curfrm $curto\n";

    } #endif

close (SOCK) or die "close: $!";

exit;