#! /perl/bin/perl -w

use strict;
BEGIN { use CGI::Carp qw(fatalsToBrowser warningsToBrowser); }
use LWP::Simple;
use CGI;

$| = 1;
my $q = CGI->new;
my $URL = "http://cpaweb01.planetarion.com/botfiles/galaxy_listing.gz";
my $html = get( $URL );

print $q->header, $q->start_html;
print $q->h1('Test');
print $html;
print $q->end_html;