Select Code to Download

@input = qw/here is some input/;
my $imfile = join "\n",@input;
open(MEMORY,'+<', \$imfile) or die "Can't open memory file: $!";
# Then use IO::Handle or open to just override STDIN.
# To be comprehensive you could check the version of perl.  If it's no
+t high enough, you could require IO::String, to solve the problem, as
+ well..

sub parameters {
  return bless [ $_[0], $_[0]->{'params'} ], DummyNameSpace if want('O
+BJECT'); # Single Param.
...
}

1;