Uncompress BACs

#! /usr/bin/perl -w
 
# *************************************************************
# This Programme does the following in sequence
# -> Uncompress the gz files in a folder
# Author : Rajkumar (itc@rajkumar.in)
# Release: APR 2010
# *************************************************************
 
# Libraries
	use strict;
	use Bio::Perl;
	use Bio::SearchIO;
 
# At the top: Time Start
	my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
# Variables
	my $path   = "/home/raj/bio";
	my $zdir   = "$path/tobacco/data/BAC";
	 
	my ($i)    = $_;
	my (@files)= @_;
 

 
# Work with the temp file to pick only the top hits with one scaffold
 
	opendir (DIR, "$zdir") or die $!;
	@files = readdir(DIR);
	close(DIR);
 
	print "\n\tUncompressing..";

	foreach my $file(@files) {
		next if ($file eq "."  or $file eq "..");
		next if ($file !~ m/.gz/);

		chdir $zdir;
		`gzip -d $file`;
		


	}

	print " Done!\n";
	
 
# At the End: Time Calculation
	my ($sec_,$min_,$hour_,$mday_,$mon_,$year_,$wday_,$yday_,$isdst_) = localtime(time);
	my $days  = $mday_-$mday;
	my $hours = $hour_-$hour;
	my $mins  = $min_-$min;
	my $secs  = $sec_-$sec;
	print "\n------------------------\nDuration: ";
	if ($days>0) { print "$days days";}
	if ($hours>0) { print ": $hours hours";}
	if ($mins>0) { print ": $mins mins";}
	if ($secs>0) { print ": $secs secs";}
	print "\n------------------------\n";
 
# END