/code/perl/video.pl

#!/usr/bin/perl -w
use strict;
use v5.10;
my $loop = $ENV{QUERY_STRING} =~ s/(&loop|loop&)// ? " loop" : "";
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; }
body { text-align: center; }
		</style>
	</head>
	<body>
		<video controls$loop>
			<source src="$ENV{QUERY_STRING}" type="video/mp4">
		</video>
	</body>
</html>
EOF
download