#!/usr/athena/bin/perl

print(">  $>,  < $<\n");
print("Setting uid.\n");
$>=16590;
$<=16590;
print("Done.\n");
print("Using uid $>, $<\n");
open(FOO,">/afs/athena/user/m/k/mkgray/testuidfile");
$y = print(FOO "Testing\n");
print("Y: $y\n");
print("Write successful!\n");
$foo = `/usr/ucb/whoami`;
$x = print(FOO "User: $foo\n");
print("X: $x\n");
close(FOO);
open(BAR, "/afs/athena/user/m/k/mkgray/private/directions");
while(<BAR>) {
	print("Line: $_");
}