#!perl
$program = "c:\\progdir\\bin\\proggie.exe";
$dstfile = "d:\\scripts\\log\\archive\\proggie.log";
$arg0 = "\"Blah.Blech.>\"";
$timeout = 60;
$starttime = time;

open( PRG, "$program $arg0 |") || die "Couldn't open PRG: $!\n";

open (LF, ">$finaldest");

while (<PRG>) {
        print LF "$_";
        $difftime = time - $starttime;
        last if ($difftime > $timeout);
}

close (LF);
close (RVRD);