Select Code to Download

sub slurp {
   my $file = shift;
   local $/;
   open my $fh, '<', $file or die "Can't open $file: $!";
   return <$fh>;
}