Select Code to Download

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

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