#!/usr/athena/bin/perl

$"="` '";

print "Command: $0\n";
if (@ARGV)
  { print "Arguments: `@ARGV'.\n\n"; }
else
  { print "No arguments.\n\n"; }
print "Real UID: $<\n";
print "Effective UID: $>\n";
print "PID: $$\n";