my @files = ('cat_advert.html',
'cat_advert_admin.html',
'cat_admin_front.html');

my $html;
foreach $html (@files) {

print "File: $html <BR>";

# if templates already exist...dont get rid of em!
if (-e "$CFG->{admin_root_path}/templates/$CFG->{build_default_tpl}/$html") { next; }

$file = $tar->get_file ($html);
$file->name("$CFG->{admin_root_path}/templates/$CFG->{build_default_tpl}/$html") or return Plugins::Category_Adverts->error("Error: $GT::Tar::error");
$file->write or return Plugins::Category_Adverts->error("Unable to extract file: '$CFG->{admin_root_path}/templates/$CFG->{build_default_tpl}/$html' ($GT::Tar::error)", 'WARN');
}

if (! @files) {
return $self->error ('CANTFIND', 'WARN', $filename);
}

my $file = $tar->get_file ($html);
use GT::Dumper;
print Dumper($file);