#!/usr/bin/perl -w

print "Content-Type: text/html\n\n";
print "visualizador de logs<br>";

use File::Tail;
 use strict;

 my $name = '/var/log/mail.log';
 my $file = File::Tail->new(name=>$name,maxinterval=>1,interval=>1,tail=>50);
 my $line;
 my $i=0;
 while ( defined( $line = $file->read ))
 {
     print "$i: $line\n<br>";
     $i++;     
}