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