Select Code to Download

#!/usr/bin/perl -w
use strict;
...
  my $a = shift;
  print $a;
}

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