Yes, look into the dump_log:

    dump_log - log all I/O in dump format
            $fh = $obj->dump_log;

            $fh = $obj->dump_log($fh);

            $fh = $obj->dump_log($filename);
[download]

"Nothing is sure but death and taxes" I say combine the two and its death to all taxes!