Help for this page
package my_module; ... sub my_sub { print $gMessage; }
#!/usr/bin/perl ... ... ... ...