#!/usr/athena/bin/perl

($first, $second, @therest) = split(//, $ARGV[0]);
print "/afs/athena/user/$first/$second/$ARGV[0]";