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