Select Code to Download

use IO::Scalar;
### Open a handle on a string, read it line-by-line, then close it:
...
   #  ...
}
close $SH;