#! /usr/local/bin/perl
use CGI;
$in = new CGI;
$loc = $in->param('dir');
 $base = "http://www.personal.psu.edu/users/r/w/rwa118/avatars/";
chdir $loc||die;
opendir D,".";
$num = 0+grep-f,readdir D;
$num = $num - 1;
printf("Location: $base$loc/%03d.png\n\n", rand($num));