#!perl

use File::Slurp;
use strict;
use warnings;

my $textfile = 'inputfile.txt';
my $output_file = 'file.txt';

my $text = read_file($textfile);

open(my $output_fh, '>',"$output_file")
         or die "Failed to open $output_file: $!";

print {$output_fh} $text, "\r\n";

close $output_fh;