use strict; use lib '/path/to/my/lib/'; use MyDBI; #export $dbh use CGI qw(header path_info); my ($id, $image) = path_info() =~ m{(\d+)_((?:image|thumb|mini)[1-3])(_.+)?\.jpe?g$}i; exit unless $id and $image; my ($file) = $dbh->selectrow_array("SELECT $image from offerte WHERE id=$id"); exit unless $file; print header(-type => 'image/jpeg', -Content_length => length $file), $file;