#!/usr/bin/perl -w
use strict;
my $logfile= "./totte.log";
open my $log, "| -", 'tail', '-f', $logfile or die "Couldn't read logfile '$logfile': $!";