# Checking User Credentials
print header(-status=>'401 Unauthorized', 'WWW-Authenticate'=>'Basic realm="!!! Special Private Area !!!"') unless $ENV{REMOTE_USER};
exit unless $ENV{REMOTE_USER};

# Restricted code - this code will not run unless user is authenticated. Test $ENV{REMOTE_USER} for user-level control
print header( -charset=>'iso-8859-7' );