Select Code to Download

#!/usr/bin/perl -w

use strict;
...
eval($code);
untie *STDOUT;
print "The captured STDOUT is: >>>$buffer<<<\n";