#!/usr/bin/perl -w
use strict;
use CGI ':standard'; 
use Archive::Tar;
my $file = "/home/mm/IpToCountry.csv.gz";
my $end_file = "/home/mm/IpToCountry.csv";
 
print header();
my $tar = Archive::Tar->new;

my $tar_errors = $tar->error();

$tar->read($file,1);
$tar->extract($file,   $end_file);
print p("Tar errors ($tar_errors)");