use File::Path 'make_path';
use Cwd;
$path = Cwd::getcwd;
File::Path->make_path($path);
chdir $path or die "Cannon chdir: $!";
print $path. "\n":