ZipMe.pl - a perl script for making timestamped tars

#!/usr/bin/perl -w
#This script compresses recursively a directory
#into a tar with dir_timestamp name
#where timestamp is in the YYYYMMDD_HHmmSS format
#source: linux forums

$dir_in=shift(@ARGV);
chomp($dir_in);
$dir_in =~ tr/\///d;
print "Archiving $dir_in/* ...\n";
use POSIX qw(strftime);
$now_string = strftime "%Y%m%d_%H%M%S" , localtime;
$tarname=$dir_in."_".$now_string.".tar.gz";
$execstring="tar -zpscf".$tarname." ".$dir_in."/*";
#debug print($execstring); # uncomment to debug
system($execstring);
print("\n");