Smart Redirection

 #!/usr/local/bin/perl
 # script: random_pict.pl

 use CGI qw/:standard/;
 $PICTURE_PATH = path_translated();
 $PICTURE_URL = path_info();
 chdir $PICTURE_PATH
  	or die "Couldn't chdir to pictures directory: $!";
 @pictures = <*.{jpg,gif}>;
 $lucky_one = $pictures[rand(@pictures)];
 die "Failed to pick a picture" unless $lucky_one;

 # THIS IS DIFFERENT FROM THE HANDOUT
 print redirect(
	       -uri=>"$PICTURE_URL/$lucky_one",
	       -expires=>'-1m',
	       );