sub mailoff {
  my $ip_address = shift;
  #open mail handler stuff
  print MAIL "here is the ip address $ip_address";
  #close
}