#!/usr/bin/perl
  use CGI;
  use DBI;
  my $query=new CGI;
  print $ARGV[0];
  my $documentroot=$query->param("documentroot");
  print  $documentroot;
  exit 1;