# ******************************************************************** # Paste this block of code on your web page where you would like text # links to be displayed. This code will dynamically add and remove text # links on your web page according to your BackLinks.com settings. # ******************************************************************** # The following variable defines whether links are opened in a new window # (1 = Yes, 0 = No) my $OpenInNewWindow = "1"; # ******************************************************************** # Please DO NOT modify anything below # ******************************************************************** my $BLKey = "8I35-T30T-Y37Q"; use LWP::Simple; use URI::Escape; my $QueryString; $QueryString = "LinkUrl=".uri_escape((($ENV{'HTTPS'} eq 'on')?'https://':'http://').$ENV{'HTTP_HOST'}.$ENV{'REQUEST_URI'}); $QueryString .= "&Key=" .uri_escape($BLKey); $QueryString .= "&OpenInNewWindow=" .uri_escape($OpenInNewWindow); #Make request my $backlinks_content = get("http://www.backlinks.com/engine.php?".$QueryString); if($backlinks_content) { print $backlinks_content; }