--- a/purge-proe	Wed Dec 22 12:07:06 2010 +0100
+++ b/purge-proe	Wed Dec 22 12:38:28 2010 +0100
@@ -30,8 +30,7 @@
 
   dirs => [],   # dont set default dir here because arguments to --directory will
                 # not overwrite it, but added to it
-  keep => 3,
-  recursive => 1
+  keep => 3
 
 };
 
@@ -42,7 +41,6 @@
   'help' => sub { pod2usage(-verbose => 1, -exitval => 0) },
   'man' => sub { pod2usage(-verbose => 2, -exitval => 0) },
   'keep=i' => \$opt->{keep},
-  'recursive' => \$opt->{recursive}
 );
 
 sub doit {