copy($datei1,$datei2) or &copy_failed;

sub copy_failed {
  print "Copy failed!\n";

  #
  # Und noch was anderes...
  #
}