Help for this page
#!/usr/bin/perl -w ... } 1;
#!/usr/bin/perl -w ... # prints ok print CWI::Message::get_msg;