#!/usr/bin/perl 

my $directory = shift or die("");

chomp($directory);

$directory =~ s!/!!g ;

chomp(my $date = `date +%Y%m%d`);
`tar cjvf $directory.$date.tar.bz2 $directory`;