my $command = qq{/local/mnt/quadcmd/bcommand -pol "$(line) "};
$command .= q{ -s1 TIMESTATE };
$command .= qq{ -d "$final_start" };
$command .= qq{ -e "$final_end" };
$command .= qq{ -L };
$command .= qq{|grep -i "inventoryid:" };
$command .= q{|awk '{print $3}' };
my @bpx = qx{$command};