use Cwd;
    my $start_dir = getcwd;

...

sub loading_tsc{
    print "DEBUG: loading_tsc received '@_'";
    my $current_corner = shift;
    chdir($start_dir.'/'.$current_corner ) or die "\n $!\n";
    print "\n";
    print `pwd`;
    print "\n";
}