Name "main::username" used only once: possible typo at filedate.pl line 15.