Small perl script to copy huge drives