use Cwd;
use File::Spec;
print "In directory ->", File::Spec->catfile(cwd(),
    '..\admin\templates'), "<-\n";