Untitled

#!/usr/bin/perl -T
use warnings;
use CGI;
my $cgi = new CGI;


$ENV{"ORACLE_HOME"}="/opt/oracle/product/11.1.0/db_1";
$ENV{"LD_LIBRARY_PATH"}="/usr/local/lib:/usr/lib:/opt/oracle/product/11.1.0/db_1/lib";
$ENV{"SYBASE"}="/usr/local";

use DBI;
print "Content-TYPE: text/html","\n\n";
if ($bypass) {
    $user = "reporter";
    $password = "reporter";
}
$dbh = DBI->connect( 'dbi:Sybase:FIBERDEVEL', $user, $pass, { RaiseError=> 0, PrintError => 0, AutoCommit => 1 } );

$sth = $dbh->prepare( qq{select Name from master.groups where GID = 10});
$sth->execute;
while($grp = $sth->fetchrow_array )
{
    $user_gname = $grp;
}

print <<EOF;
<html>
<title>Greetings</title>
<b>Hello, $user_gname</b>
<input type="text" id="user_gname" name="$user_gname" value="$user_gname">
EOF