Comptabiliser les octets in/out d'un file descriptor

Le module IO::Statistics permet de comptabiliser les échanges qui passent au travers un descripteur de fichier :

use IO::Statistics;

my($in,$out) = (0,0);
my $io = IO::Statistics -> new(\$in,\$out);
$io -> via(\*STDOUT);

print "1234567890\n";

END{
        print "TOTAL (out/in) : $out/$in\n";
}