1 #-------------------------------------------------------------------------------------------------------------- 2 # Show about box 3 #-------------------------------------------------------------------------------------------------------------- 4 5 use strict; 6 use warnings; 7 8 sub show_help 9 { 10 my $help_text = 11 "Welcome to the very basic help txt: 12 13 DEBUG LEVELS: 14 0 ERROR 15 1 warnings & startup messages 16 2 not used 17 3 Sub routine called 18 4 Important but noisy sub details 19 5 Very noisy sub details 20 "; 21 22 &show_dialog("Help", $help_text); 23 } 24 25 1;