http://qs321.pair.com?node_id=359230

perl -le "use warnings; use File::Find; find (\&wanted, 'WS_FTP.LOG'); sub wanted{ unlink $File::Find::name };"