#!/usr/bin/perl -w

# get current count

open (COUNT,"find 2>/dev/null * -type d | sort -n | tail -n 1 |") ;

$count = <COUNT> + 1;

print $count ;
