our $attempts = $session->param('attempts');<-Global variable # exported functions @EXPORT = qw(.....<--Global variable in list of exports $attempts HTML Doc javascript Login Failed Form ####

You have only login attempts left.