Select Code to Download

my @command = ( $swlist, '-l', 'depot', '@', $depot_locn );
my $child_pid = open( my $shell, '-|', @command )
...
close $out1;
close $out2;
close $shell;