#!/usr/bin/perl -w
#
     my $tring = "ijapeters@hotmail.com";
     my $AUTOMAIL=".qmail-prorataweb"; my $HOST="proxy2"; my $ssh="/usr/bin/ssh";
     my $OUT="|$ssh -l automail $HOST \"tee $AUTOMAIL >/dev/null\"";
     my $IN ="$ssh -l automail $HOST \"cat $AUTOMAIL|wc -l\" |";
     #my $tring=shift;
        if ($tring eq ""){
	        open (FILE, $IN);
        	my $num=<FILE>;
		close FILE;
	        chomp $num;
		$num=~s/\s//g;
		$BEN->log(4,"READ from automail: $num Mails");
		return $num;
	}
        else {
	           open (FILE, $OUT);
	           $BEN->log(4,"Opening: $OUT");
	           print FILE $tring;
	           close FILE;
	}