try this...

$cutoff = time() - 31*24*60*60;
while(</dir/to/read/*>) {
  unlink $_ if (stat $_)[10] < $cutoff;    
}
[download]

that should work... maybe replace unlink with print to test it first ;)

                - Ant
                - Some of my best work - Fish Dinner