Since this is a conrtived example...here is my other contrived example. Not to say IO::All isn't cool, i think many of us are just bigger control freaks and can't stand to guess what the module will do and if it will do the right thing.

use File::Spec;
open (MYFILE, '<', File::Spec->catfile('my','dir','my_file.txt')) or d
+ie "Can't open $file: $!\n";
open(RFILE, '>', File::Spec->catfile('my','dir','reversed.txt')) or di
+e "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;
[download]

Now if it was IO::DBD::All....just feed it a daatabase and a file of any format and ti does the right thing....well then i might not have much of a job so lets not go there.