#!/usr/bin/perl
use Net::FTP;
use Archive::Zip;
use IO::File;
my $zipname = 'C:\Documents and Settings\nt\Desktop\Servers.zip';
		my $destinationDirectory = '\\10.150.1.240\d$\Logs';
		my $zip = Archive::Zip->new($zipname);
		foreach my $member ( $zip->members ) {
			next if $member->isDirectory;
			( my $extractName = $member->fileName ) =~ s{.*/}{};
			$member->extractToFileNamed("${destinationDirectory}/${extractName}");
		}
		printf "unzip done\n";