Select Code to Download

my $script = 'while(<>) { print; }';
close(STDIN);
...
my $script_input = 'blah';
$stdin .= $script_input;
eval $script;

my $script = 'while(<STDIN>) { print; }';
close(STDIN);
...
my $script_input = 'blah';
$stdin .= $script_input;
eval $script;