#!/usr/bin/perl -wT use strict; use CGI; use File::stat; my $q = new CGI; my $url = $q->url(); my $file = $0; my $stat = stat $file; my $uid = $stat->uid; my $user = getpwuid($uid); print $q->header; print << "--";

URL is $url
File is $file
UID is $uid
Username is $user