if ( $q->param("Filter") )
            {
            $Id=$q->param('User_Id');
            $Name=$q->param('User_Name');

           if ($Id ne "" )
                {
              $filterexpression= $filterexpression." UserId like '" .$Id. "%' and

#!C:\perl\bin\perl.exe

use CGI;
use CGI qw/:standard/;
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
my $q = new CGI;
use DBI;

    #!C:\perl\bin\perl.exe

    use CGI;
    use CGI qw/:standard/;
    use CGI::Carp qw(warningsToBrowser fatalsToBrowser);

    #!C:\perl\bin\perl.exe
    use strict;
    use CGI qw(:standard);
    use CGI::Carp qw(warningsToBrowser fatalsToBrowser);