Hi,

Have a look at the Cwd package for cwd() and
File::Path for mkpath().

J.C.