use Cwd;
if (lc(cwd()) eq 'c:/')
{
   print "I'm not working on this directory!\n";
}
else
{
   print "I'll work on this directory!\n";
}
end;