use strict;
use CGI qw(a);

my $url = 'http://perlmonks.net/';
print a({-href => $url, -rel => 'nofollow'}, $url);