Hi please could you have a look and see what I have missed.
use File::Tail; my $name="/etc/openvpn/logs/CT-NET.log"; my $maxinterval=10 ; my $adjustafter=7 ; $file=File::Tail->new(name=>$name, maxinterval=>$maxinterval, adjustafter=>$adjustafter); while (defined($line=$file->read)) { print ("$line"); << this line prints fine print ("hello"); << but this one does not print at all } i have allso tried print "hello"; but the result is the same.. I have tried ping ("$line hello"); but it does not print the hello. what have I missed .. Many thanks for your time -- Gregory Machin [EMAIL PROTECTED] www.linuxpro.co.za -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>