in reply to cp in perl

use File::Copy;