if( copy $source, $dest ) {
  print "Success!";
}
else {
  warn $!;
}