/code/perl/image.pl

#!/usr/bin/perl -w
use strict;
use v5.10;
print<<"EOF";
Content-type: text/html
<!DOCTYPE html>
<html>
	<head>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
		<title>$ENV{QUERY_STRING}</title>
		<style type="text/css">
* { padding: 0; margin: 0; background: #000; }
html, body { height: 100%; }
body { text-align: center; display: table; width: 100%; }
div { display: table-cell; vertical-align: middle; }
img { margin: auto; }
		</style>
	</head>
	<body>
		<div>
			<img src="$ENV{QUERY_STRING}" />
		</div>
	</body>
</html>
EOF
download