Select Code to Download

use PerlIO::Scalar;  # to avoid recursion when creating $fh

...
  open my $fh, '<', \'1';
  return $fh;
}