use CGI qw(param header url);

my $url = url();