chdir($corner) or die "\n $!\n";

##</code><code>##

chdir($corner) or die "\nCannot cd to $corner $!";

##</code><code>##

$  perl -e 'my $c = "foobar.txt"; open my $FH, "<", $c or die "cannot open $c $!"; '
cannot open foobar.txt No such file or directory at -e line 1.

$  perl -e 'my $c = "foobar.txt"; open my $FH, "<", $c or die "cannot open $c $!\n"; '
cannot open foobar.txt No such file or directory

##</code><code>##

&loading_tsc;

##</code><code>##

loading_tsc();
# or: loading_tsc($param1, $param2);