BEGIN{print `pwd`;};$|=1; use blib '../..'; use PDL; {
my $a = zeroes(100,100);
my $b = $a + 1;
print "GOINGTOFIN\n";
}
;print "FINISHED\n";
BEGIN{print `pwd`;};$|=1; use blib '../..'; use PDL; {
my $a = zeroes(100,100);
my $b = $a + 1;
print "GOINGTOFIN\n";
}
;print "FINISHED\n";