I agree with the posters above on using find. But of course, you want to run this program every once in a while and you haven't figured out how to do shell programming so you combine the two and put in the program in perl!

#!/usr/bin/perl
system(qq[find ~ -size +1024k -printf "%p: %s\\n" -ok rm \\;]) == 0
  or die "System call failed: $?";
[download]

Ahh, Sweet perl.
---
Crulx
crulx@iaxs.net