print "Status: 307 Temporary redirect\n";
print "Location: " . URI->new_abs($files[int(rand @files)], "http://localhost/") . "\n\n";