%h;
$h{'Echo [Returns what is sent to server]'} = {service => ['7']};
$h{'Discard [A sink, like /dev/null]'} = {service => ['9']};

foreach $key(keys %h)
{foreach $service (@{$h{$key}{'service'}})
{if($khost=~/^$service/)
{chop($service) if ($service =~/\.$/);
print "\n[!] Port: [$start_port] Service: $key";
print O "[!] Port: [$start_port] Service: $key\n";
$start_port++}}}}}