Select Code to Download

my $whole_file;
{
   local($/) = undef;
   $whole_file = <F>;  # <> operator reads in all of the data from fil
+ehandle F
}

my $whole_file = do { local $/; <F> };