#!/usr/bin/perl $c = 0; @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i (@values) { ($vn, $d) = split(/=/,$i); if ($vn eq "pic") { $d =~ /^[[:alnum:]\/_\.]{1,20}$/ or next; $c = 1; unless ( -e "../images/$d" ) { print "Content-type: text/html\n\n"; print "Image not found.\n"; last; } print "Content-type: text/html\n\n"; print "

\n"; last; } } if ( $c == 0 ) { print "Content-type: text/html\n\n"; print "Invalid command.\n"; }