Select Code to Download

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