use Archive::Tar;
use LWP::Simple;
use IO::Scalar;
use Compress::Zlib;
use strict;

my $device = shift;

my $tarInput = get "http://somehost/cgi-bin/getTar.cgi?device=$device";

my $uncomptar = Compress::Zlib::memGunzip($tarInput);
my $sh = new IO::Scalar \$uncomptar;
my $tar = Archive::Tar->new;
$tar->read($sh);
print join "\n", $tar->list_files;