open my $file, '<', 'tail'  or  die $!;
while (1) {
    while ( sysread $file, my $buff, 100 ) {
        syswrite STDOUT, $buff;
    }
}
close $file;