#!/usr/bin/perl

use strict;
my $output = `/usr/bin/nmap -sU -p 2300,6500 $ENV{'REMOTE_ADDR'}`;

print "Content-type: text/html\n\n";
print $output;