use Archive::Tar;
my $meinedoofendaten = "eydatencool";
my $tar = Archive::Tar->new();
my $dir = 'FFW';
opendir DIR,$dir or die $!;
my @files = grep{ -f }map{$dir . '/' . $_}readdir DIR;
closedir DIR;
$tar->add_files(@files);
$tar->add_files('linesep.pl');
$tar->write("archive2.tar");