=**************************************
    = Name: Link Tracker
    = Description:Keep track of what links o
    =     n your site (or external links to other 
    =     sites) with this simple script. Just rea
    =     d the explanation on how to setup your l
    =     inks and start tracking!
    = By: Aaron L. Anderson
    =
    = Assumes:Change your links from href="p
    =     age.html" to href="linktracker.pl?url=yo
    =     urdomain.com/page.html.
    =
    =This code is copyrighted and has    = limited warranties.Please see http://w
    =     ww.Planet-Source-Code.com/vb/scripts/Sho
    =     wCode.asp?txtCodeId=535&lngWId;=6    =for details.    =**************************************
    
    -------------------------------------------- 
    linktracker.pl (file you redirect to)
    #!/usr/bin/perl
    #
    # link tracker
    #
    use warnings;
    use strict;
    use CGI::Carp qw(fatalsToBrowser);
    use CGI qw/:standard/;
    use POSIX;
    use DB_File;
    my %db;
    my $db = "linktracker.db";
    tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644, $DB_BTREE
    or die "Cannot open file 'db': $!\n";
    my $url = url_param('url');
    if (exists $db{$url}) {
    my $value = $db{$url};
    $value++;
    $db{$url} = $value;
    print "Location: $url\n\n";
    }
    else {
    $db{$url} = 1;
    print "Location: $url\n\n";
    }
    ------------------------------------------- 
    linkcount.pl(stats page)
    #!/usr/bin/perl
    #
    # link counter
    #
    use warnings;
    use strict;
    use CGI::Carp qw(fatalsToBrowser);
    use CGI qw/:standard/;
    use POSIX;
    use DB_File;
    my %db;
    my $db = "linktracker.db";
    tie %db, "DB_File", "$db", O_CREAT | O_RDWR, 0644, $DB_BTREE
    or die "Cannot open file 'db': $!\n";
    print header, start_html;
    print "<center>";
    print "<table><tr>";
    print qq(<td bgcolor="000080"><b><font color=white>URL</font></b></td>
    +);
    print qq(<td bgcolor="000080"><b><font color=white>Click Count</font><
    +/b></td></tr>);
    foreach (keys %db) {
    print "<td>$_ </td> <td><center>$db{$_}</center></td></tr>\n";
    }
    print "</table>";
    print "</center>";