Mega Code Archive
Categories
/
Perl
/
System Functions
Use Cwd
use Cwd; $dir = cwd; print $dir;