Select Code to Download

#!/usr/bin/perl -w

...
# fetch $pic from database for $user

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