Help for this page
#!/usr/bin/perl -w ... # fetch $pic from database for $user pint $q->header("image/jpeg"), $pic;