use warnings;
use strict;
use IO::Capture::Stdout;

my $capture = IO::Capture::Stdout->new();

my $date = '31Jul200';

my $logfile = "d:\\log\\$date.log";
my $elogfile = "d:\\log\\exported\\$date.elog";

$capture->start();
my $cmd = `fw logexport -i $logfile -o $elogfile -r 1000 -n`;
$capture->stop();

my $line = $capture->read;
print "$line";