sub slurp_file {
    my ($fname) = @_;

    local $/;
    open my $fh, '<', $fname or die "Can't open damned '$fname' file: $!";
    my $data = <$fh>;
    close $fh or die $!;
    return $data;
}