my @file_list;
my $file;
opendir(DIR, $CFG->{admin_root_path}) or die "Can't opendir $CFG->{admin_root_path}: $!\n";
while (defined($file = readdir(DIR))) {
if ($file =~ /\.(html|txt)/i){
push @file_list, $file;
}
}
close(DIR);

my $tar = new GT::Tar;

foreach (@file_list) {
$tar->add_file( $CFG->{admin_root_path} . "/templates/default/" . $_ );
}

$tar->write('Templates.tar');

my $tar = new GT::Tar;