use CGI;
my $query = CGI->new;
my $id = $query->param('id'); 

##</code><code>##

use CGI qw/:standard/;
my $id = param('id'); 

##</code><code>##

http://www.perlmonks.org/cgi-bin/test.cgi?id=1