$fRight->Entry(    -textvariable=>\$user )->pack(-side=>'top',-pady=>3);
$fRight->Entry(    -textvariable=>\$password )->pack(-side=>'top',-pady=>3);