http://paperlined.org/dev/src/pl/porn/repeat_redir.pl

#!/usr/bin/perl

    use strict;
    use warnings;

    use LWP::Simple;

my $html = get "http://clicksagent.com/out/ola_oszujeiq";
print "$html\n";