#!/usr/bin/perl -w

use strict;
use CGI;

my $q = new CGI;

my ($user) = split m!/!, $q->path_info();

# database connection stuff here ...
# fetch $pic from database for $user

pint $q->header("image/jpeg"), $pic;