#!/usr/bin/perl

# http://perlmonks.org/?node_id=1208898

use strict;
use warnings;
use Cwd;

cwd =~ m#^(.*)(?:/|$)(??{! -f "$1/.marker"})# or die ".marker not found";
print "found in $1\n";