use CGI();
my $q = CGI->new ;
my $dir = $q->param('dir');