Select Code to Download

# open my $pipe, '|-', 'pv -perlt | external-command' or die $!;
my $pipe = *STDOUT{IO};
...
}

close $pipe;