use IO::All;

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

##</code><code>##

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