Select Code to Download

use strict;
use warnings;
...
BBB
CCC
DDD

AAA
...
DEBUG: loading_tsc received ''
 No such file or directory

    @corners = <DATA> ;

    foreach my $corner(@corners){...

    foreach my $corner(@corners){
               chomp $corner;          # we still need to chomp it..
...

    }

use Cwd;
    my $start_dir = getcwd;
...
    print `pwd`;
    print "\n";
}

use File::Spec;

...

my $path_to_go = File::Spec->catdir( $current_dir , $current_corner );
chdir $path_to_go or die "unable to chdir in $path_to_go\n";