#!/usr/bin/perl -w
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Archive::Tar;
my $cgi = CGI->new();
my $tar = Archive::Tar->new('foobar.tar.gz');
my $file = $cgi->path_info();
$file =~ s|^/||;
print $cgi->header(), $tar->get_content($file);