package comm;
 ...

sub tell {
   my($client,$argument) = @_;

   ...

   return($output);
  
}

####

and it is used in that main program somethign like this:

use comm;

...

comm::tell($client,$arg);