#!/usr/bin/perl
#
#
use Carp;    

     my $AUTOMAIL=".qmail-automail"; my $HOST="proxy.prorata,de";
   #  my $OUT="|ssh -l automail $HOST \"tee $AUTOMAIL >/dev/null\"";
     my $IN ="ssh -l automail $HOST \"cat $AUTOMAIL|wc -l\" |";
        open (FILE, $IN);
        $num=<FILE>;
        close FILE;
        chomp $num;
        $num=~s/\s//g;
	print "READ from automail: $num Mails";
	print $num;