in reply to Copying a directory and its contents while displaying a status
Or you could use one of the Hook:: modules from CPAN, such as Hook::LexWrap