$tarball = "backup_".$time_stamp.".tar";

open(TAR, "$tar cf $tarball $dir/* |");
close(TAR);

$gzfile = $tarball.".gz";

open(FILE, $tarball);
binmode FILE;

$gz = gzopen($gzfile, "wb");

while (my $by = sysread (FILE, $inh, 4096)) {

		$gz->gzwrite($inh);

	}

$gz->gzclose();