#!/usr/local/bin/perl -W

use CGI qw/:all/;
my $query = CGI::new();
my $file = $query->path_info();

open ( IMAGE, $file );
while ( <IMAGE> ) {
	print $_;
	}
	
exit ;