use File::Spec;
open (MYFILE, '<', File::Spec->catfile('my','dir','my_file.txt')) or die "Can't open $file: $!\n";
open(RFILE, '>', File::Spec->catfile('my','dir','reversed.txt')) or die "Can't open $rfile: $!\n";
print RFILE reverse <MYFILE>;;


use IO::All;
my $file  = io->catdir('my','dir','my_file.txt')->backwards;
my $rfile = io->catdir('my','dir','reversed.txt');
$file > $rfile;