注册新用户(perl)

#!/usr/bin/perl
use strict;
use warnings;
use Term::ReadPassword;  #隐藏密码

=pod
  注册用户
  passwd file ./switch 是存放用户名密码的数据文件
  数据文件的格式：用户名  密码
=cut

print "\n\nWelcome to Jackm's word\n\n";
my (%user_info,$passwd,$re_passwd);
open(WL,'>>','./switch'); #写入新的用户和密码的信息 
sub check_info
{