#!/usr/bin/perl $home = "/home/kenstar/"; $mail = $home."Mail/"; $log = $mail."from-log"; open LOG ,$log; while(){ $count++; } $count /= 2; if($count){ print "$count $count\n"; }else{ print "0 0\n"; }