Select Code to Download

open my $invoice_lines, "-|", $command or die "could not fork $!";
while (my $inv_line = <$invoice_lines>) {
     #...