#!/usr/bin/perl

use strict;
use CGI;

my $cgi=new CGI;
my $username=$cgi->remote_user;