Select Code to Download

{
  local $/ = undef;
  open my $fd, '<', 'file' or die "open: $!";
  my $txt = <$fd>;
  close $fd;
}

open my $fd, '<', '/home/hue/f1' or die "open: $!";
my $txt = join '', <$fd>;
close $fd;