deepest=`perl ./find_deepest.pl $1` echo removing $deepest rm $deepest