use strict;
use warnings;

use File::Slurp;

my $file_slurp = read_file('file');
my $normal;
{
    local $/;
    open my $FILE, '<', 'file' or die $!;
    $normal = <$FILE>;
    close $FILE;
}

write_file('slurp', $file_slurp);

open my $NORMAL, '>', 'normal' or die $!;
print $NORMAL $normal;
close $NORMAL;

open my $SLURP_NORMAL, '>', 'slurp_normal' or die $!;
print $SLURP_NORMAL $file_slurp;
close $SLURP_NORMAL;