Get url in perl

To get the url of the page we have to give the following code

use CGI;
my $query = new CGI;
$query->header;
$q=CGI->new();


#To get URL
my $url = $query->virtual_host()."".$query->script_name();