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