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

##</code><code>##

barf "Green pigs: $!" unless copy $source, $dest;