We had a find ... xargs vs. File::Find discussion here before. Your entire program can be written by find2perl in a much more secure and efficient manner:

find2perl /top/dir -name '*.gz' -eval 'size > 1000000 and unlink' | pe
+rl
[download]

-- Randal L. Schwartz, Perl hacker