Archive script

hi guru,

can advise how to construct a housekeeping script using perl for the following ?

find /var/tmp/logs -name "si*" -type f -exec gzip -f {} \;
find /var/tmp/logs -name "*.gz" -type f -exec mv -f {} /var/tmp/log \;

I found out those are not working in shell at when put them on cronjob. Files are not moved or gzip at all.

Regards,

perldoc File::Find