sub set_main_message { $_[0]->{main_message} = $_[1]; } sub get_main_message { return $_[0]->{main_message}; }