if ($0=~/^(.+)\/.*/) { 
        $dir=$1; 
} 
else { 
        $dir="."; 
}