open my $ifh, '<', $infile or die "$infile: $!";
my $data = do { local $/; <$ifh> };
close $ifh;