print "please enter a username /n";
          my $usernameentered = <STDIN>;

          print "please enter a password /n"; 
          my $passwordentered = <STDIN>;