5 lines
38 B
Perl
5 lines
38 B
Perl
|
use Cwd;
|
||
|
|
|
||
|
|
$dir = cwd;
|
||
|
|
print $dir;
|