sub execute {
  &ccCopy($source,$destination,$host,$error);
}
sub ccCopy {
  my $source = shift;
  my $destination = shift;
  my $host = shift;
  my $error = shift;
}