Should be pretty easy. Just use File::Find to recursively find all of the files beneath a certain directory, and in your handler just record the size of each file.

Then when you've found all the files, sort them by filesize, then loop through them and prompt whether to delete each file (perhaps above a certain size threshold?).

Read the docs for File::Find and for the file tests in perlman:perlfunc.