#!/usr/bin/perl -w

use CGI qw(param redirect);
use Text::CSV qw();
use DateTime;

my $dt = DateTime->now();
my $url = param ('url');
$csv = Text::CSV->new();
$csv->combine ($ENV{REMOTE_ADDR}, $dt->iso8601(), $ENV{HTTP_REFERER},
  $ENV{HTTP_USER_AGENT}, $url);

open F, '>>', '/usr/local/apache/logs/click_track.log';
print F $csv->string(), "\n";
close F;

print redirect($url);