use
Cwd;
chdir
(
$ARGV
[
0
]
)
;
my
$currentdir
= cwd
(
)
;
print
"
$currentdir
"
;
syntax highlighted by
Code2HTML
, v. 0.9.1