#!/usr/bin/perl -w
use strict;
&one;
sub one {
  my $a = "hello";
  &two($a);
}
sub two {
  my $a = shift;
  print $a;
}

##</code><code>##

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