my $source = $ARGV[0];
my $dest = $ARGV[1];


my $command1 = "cp " .  $source . "T.tif ../../" . $dest . "T.tif";
my $command2 = "cp " .  $source . "L.tif ../../" . $dest . "L.tif";

print "$command1\n";
print  `$command1`;
print "$command2\n";
print `$command2`;