use Time::localtime; 
use Net::SMTP; 
use Archive::Zip qw( :ERROR_CODES :CONSTANTS ); 
use Date::Simple (':all'); 
use strict; 
 
# Get path of log files 
my $log_path = $ARGV[0]; 
 
#Run the main subroutine 
main(); 
 
sub main 
{ 
	zip( $log_path ); 
} 
 
# This subroutine zips the contents of the specified directory 
sub zip  
{ 
	# Bring in the passed parameters 
	my ($s_dir) = @_; 
 
	# Get current date 
	my $today = today(); 
	 
	# Create a Zip file 
	my $zip = Archive::Zip->new(); 
	 
	# Assign the names of the .log files in the directory to an array 
	opendir DIR, $s_dir or die "cannot open dir $s_dir: $!"; 
	my @file= grep (/\.log/,readdir (DIR)); 
	closedir DIR; 
 
	# For each file in the directory, add to zip 
	foreach (@file) {  
		$zip->addFile( $_ ); 
		print $_; 
	} 
	 
	# Save the Zip file 
    unless ( $zip->writeToFileNamed("IIS_logs_$today.zip") == AZ_OK ) { 
       die 'write error'; 
   } 
}