#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;

use Database;

print "Content-type: text/html\n\n";

my $q = new CGI;
my %params = $q->Vars;

my $userid = delete $params{USER};

my $user = $dbh->selectrow_array("select NAME from USER where ID=?", undef, $userid);

print "name of the user: $user!";