(my $url = $out_file) =~ s#$ENV{DOCUMENT_ROOT}#http://$ENV{SERVER_NAME}#;
print "Go to $url now for prizes!\n";