package BasicFunctions; use warnings; use strict; # ------------------------------------------------------------ sub WriteStandardHtmlHeader {     my $r = shift; } # WriteStandardHtmlHeader # ------------------------------------------------------------ sub WriteStandardHtmlFooter {     my $r = shift; } # WriteStandardHtmlFooter # ------------------------------------------------------------ sub WriteLogonPage {     my $r = shift; } # WriteLogonPage # ------------------------------------------------------------ # ... # ------------------------------------------------------------ 1; # modules have to return a true value