Select Code to Download

sub receive {
   my $self = shift;                                  # Perl OO mantra
+ ...
...
   }
   1;
}

sub send {
   my $self = shift;
...
   }
   1;
}