#!/usr/bin/perl
use File::Find;
use Archive::Tar;

# Sicherungsdirectory, mit Slash am Ende notieren
$directory = "c:/TEMP/";
# Name des zu erstellenden Archives
$archive = "Sicherung.tar";
$sikdir = "c:/sw-inst";

$compressed = 1;

$tar = Archive::Tar->new();
finddepth(\&AddToTar, no_chdir, $directory);

sub AddToTar {
                print "File: $_  $File::Find::name\n";
                $tar->add_files($File::Find::name);
                #$tar->add_files($_);
}

$tar->write($sikdir."\/".$archive.".tgz", $compressed);