Select Code to Download

sub file2scalar {
   my $filename = shift;
...
   open FH, $filename || return "Error: can't read $filename";
   return do{local $/; <FH>};
}

my $include = file2scalar('foo.html');