#!/usr/local/bin/perl
# Jaime Prilusky, 2007
use English;

  my $script = $PROGRAM_NAME;
  my $user   = getpwuid($EUID);

  print qq {

  script: $script
  userid: $EUID
  user  : $user

  };