#! /usr/bin/perl

my $cmdtorun = "tail -f D:/prjct/logger/2013-06-05.dlg |";
open(TL, $cmdtorun) || die "Failed: $!\n";
while ( <TL> )
{
  print "Got: $_\n";
}