#!/usr/bin/perl
#
# quick redirect to log postcard pickups

use strict;
use CGI::Fast;

while (my $cgi = new CGI::Fast)
{
	print $cgi->redirect( 'http://www.ads.webshots.com/serve/adserve.cgi?postcard_pickup|click' );
}