Select Code to Download

use File::Spec;
my $file = File::Spec->catfile('my','dir','my_file.txt');
...
print RFILE reverse @lines;
close RFILE;

use IO::All;

io->catdir('my','dir','my_file.txt')->backwards 
> 
io->catdir('my','dir','reversed.txt');