#!/usr/bin/env perl

use strict;
use warnings;
use File::Copy::Recursive qw(dircopy);
use Hook::WrapSub qw(wrap_subs);
use IO::Handle;

sub after_dircopy {
    print '.';
    STDOUT->flush;
}

wrap_subs sub {},
          'File::Copy::Recursive::fcopy',
          \&after_dircopy;

dircopy('/tmp/test1', '/tmp/test2');
print "\n";