Select Code to Download

#!/usr/bin/perl -wT

...
close CONSUMER
    or die $! ? "error closing pipe: $!" : "child exit status: $?";
print "done, satisfied\n";