copy($sourceFile,$destinationFile) ||  die "$!";
.....
if(!-d $destinationFile)
{
	print "Destination Directory not found.";
}