use Cwd;
while(<>) {
    chop;
    (@path) = split(/\//,$_);
    $file = pop(@path);
    $dir = join '/', (@path);
    print "+------------------------------------------------\n";
    print "+ $dir/$file \n";
    print "+------------------------------------------------\n";
    
    $basedir = cwd();
    chdir($dir) || die "Cannot chdir to $dir \n";
    system("tar tvzpf $file > /tmp/.filelist");
    open(FILE,"/tmp/.filelist");
    while(<FILE>) {
	print;
    }
    close(FILE);
    chdir($basedir);
}
