EcoBuntu.org

#!/usr/bin/perl -w

use strict;
use POSIX qw(strftime);

my $target_directory=shift(@ARGV);
chomp($target_directory);
$target_directory =~ tr/\///d;
print "Zipping $target_directory/* ...\n";
my $set_time = strftime "%d-%m-%Y_%H%M", localtime;
my $zipped_directory=$target_directory."_".$set_time.".tar.gz";
my $command = "tar -zpcvf ".$zipped_directory." ".$target_directory."/*";
system($command);
print("\n");