Select Code to Download

package Mine::Openview::opcmsg;

...
}

1;

..in module..
sub somefunction
...
   my $self = shift;
   my $msg = $self->{msg};
}