#!/usr/bin/perl
require "cgi-lib.pl";
&ReadParse(*in);

chomp($in{linkout});
$dateout = `date +%D`;
open(fileout, ">>.linkout.txt");
print fileout " $in{linkout} |  $ENV{HTTP_REFERER} | $dateout";
close(fileout);

print "Location: http://$in{linkout}\n\n";