Select Code to Download

use strict;
use warnings;

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