sub execute {
    my %argsHash = (
        Source => $source,
        Dest => $destination,
        Host => $host,
        Error => $error,
    );

    &ccCopy(\%argsHash);
}

sub ccCopy {
    my $args = shift;

    print "Copy: $args->{Source} to $args->{Dest}\n";
}