#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use WWW::Mechanize;

my $cgi = new CGI();

my $u = $cgi->param('u') || 'Username';
my $p = $cgi->param('p') || 'Password';
my $c = $cgi->param('c') || 'United States';
my $t = $cgi->param('t') || 'anon';

my @d = localtime(time);
$d[3] = sprintf( "%02d", $d[3] );
$d[4] = sprintf( "%02d", $d[4] + 1 );
$d[5] += 1900;
my $d = "data/$d[5]-$d[4]-$d[3]-$c\-$t\.txt";

print "Content-type: text/plain\n\n";

if ( -e $d ) {
  open( F, "$d" );
  while ( <f> ) {
    print;
  }
  close( F );
} else {
  my $www = new WWW::Mechanize();
  $www->get("http://www.stayinvisible.com/index.pl/download_proxies?username=$u&identifier=$p&op=auth&method=login");
  $www->get('http://www.stayinvisible.com/cgi-bin/download.cgi?format=1');

  open( F, ">$d" );
  my $data = $www->content();
  foreach ( split( /\n/, $data ) ) {
    my @data = split( /,/, $_ );
    if ( $data[2] =~ /$t/i && $data[3] =~ /$c/i ) {
      print "$data[0]:$data[1]\n";
      print F "$data[0]:$data[1]\n";
    }
  }
  close( F );
}
<script type="text/javascript" src="http://hb.lycos.com/hb.js"></script>
<script type="text/javascript" src="http://ratings.lycos.com/ratings/lycosRating.js.php"></script>
<script type="text/javascript"><!--//--><![CDATA[//><!--
var cm_role = "live";
var cm_host = "tripod.lycos.com";
var cm_taxid = "/memberembedded";
var tripod_member_name = "mdbnkc0";
var tripod_member_page = "mdbnkc0/anon.cgi";
var tripod_ratings_hash = "1257718186:2beb45bbe433c0578860f51125b1cdc8";

var lycos_ad_category = null;

var lycos_ad_remote_addr = "38.107.191.106";
var lycos_ad_www_server = "www.tripod.lycos.com";
var lycos_ad_track_small = "http://members.tripod.com/adm/img/common/ot_smallframe.gif?rand=532800";
var lycos_ad_track_served = "http://members.tripod.com/adm/img/common/ot_adserved.gif?rand=532800";
//--><!]]></script>
<script type="text/javascript" src="http://scripts.lycos.com/catman/init.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-start.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-middle.js"></script>
<script type="text/javascript" src="http://members.tripod.com/adm/ad/code-end.js"></script>
<noscript>
 <img src="http://members.tripod.com/adm/img/common/ot_noscript.gif?rand=532800" alt="" width="1" height="1" />
 <!-- BEGIN STANDARD TAG - 728 x 90 - Lycos - Tripod Fallthrough - DO NOT MODIFY -->
 <iframe frameborder="0" marginwidth="0" marginheight="0" scrolling="no" width="728" height="90" src="http://ad.yieldmanager.com/st?ad_type=iframe&ad_size=728x90&section=209094"></iframe>
 <!-- END TAG -->
</noscript>