package User;

sub new {
     my($class,$user_info) = @_;
     return bless $user_info,$class;
}