Select Code to Download

use Cwd qw(realpath);
print "'$0' is '", realpath($0), "'\n";

a {
ZERO:../p/ts/DEMO/ect
}