3 lines
43 B
Perl
3 lines
43 B
Perl
|
($cwd=`cd`) =~ s/^.://;
|
||
|
|
print "ROOT=$cwd";
|