my $printErrMsg; #### sub writeLogin { }