Как в Perl (5.8) правильно копировать папку с её подпапками и файлами?

P.S
ОС XP, Perl 5.8, (размеры файлов от 2ГБ)

P.S.S
Я пока нашёл только два способа:
1) использование модуля win32::OLE с помощью методов объекта Scripting.FileSystemObject
2) использование системной команды xcopy и Perl функции system()
Но оба способа не есть чистый перл . Вот и хочется узнать как ГУРУ копирую папки.