Select Code to Download

use IO::Handle;

pipe(READER, WRITER);
...
    close READER;    # don't have to be explicit
    exit;
}

local *$read;
local *$write;