用Perl创建用户

我正在尝试使用这些选项创建脚本，创建用户，删除用户， 创建组，删除组。如何阻止它同时运行所有命令

#!/usr/bin/perl

$opt = 0;
&disp_menu;

$opt = <>;
print "You selected Option ";
print $opt;

$user = `sudo adduser mjensen`;
$group = `sudo groupadd Group1`;
$dgroup = `sudo groupdel Group1  `;
$duser = `sudo userdel mjensen`;

sub disp_menu {
print "Main Menu\n";
print "Option 1 Create Group\n";
print "Option 2 Drop Group\n";
print "Option 3 Create User\n";
print "Option 4 Drop User\n";
print "Option 5 Exit Menu\n";
print "Enter Option => ";
return;}

if ($opt == 3) {print "$user";
}

elsif ($opt == 1) {print "$group\n";
}
elsif ($opt == 2) {print "$dgroup\n";
}
elsif ($opt == 4) {print "$duser\n";
}
elsif ($opt == 5) {print "You have exited the program";
      }

#/usr/bin/perl
$opt=0；
&显示菜单；
$opt=；
打印“您选择的选项”；
打印$opt；
$user=`sudo adduser mjensen`；
$group=`sudo groupadd Group1`；
$dgroup=`sudo groupdel Group1`；
$duser=`sudo userdel mjensen`；
子显示菜单{
打印“主菜单”\n；
打印“选项1创建组\n”；
打印“选项2下拉组\n”；
打印“选项3创建用户\n”；
打印“选项4删除用户\n”；
打印“选项5退出菜单\n”；
打印“输入选项=>”；
返回；}
如果（$opt==3）{打印“$user”；
}
elsif（$opt==1）{打印“$group\n”；
}
elsif（$opt==2）{打印“$dgroup\n”；
}
elsif（$opt==4）{print“$duser\n”；
}
elsif（$opt==5）{打印“您已退出程序”；
}

#/usr/bin/perl
$opt=0；
&显示菜单；
$opt=；
打印“您选择的选项”；
打印$opt；
如果（$opt==3）{
$user=`sudo adduser mjensen`；
如果（$？！=-1）{
打印“已创建用户mjensen\n”；
}        
}
elsif（$opt==1）{
$group=`sudo groupadd Group1`；
如果（$？！=-1）{
打印“组1已创建\n”；
}
}
elsif（$opt==2）{
$dgroup=`sudo groupdel Group1`；
如果（$？！=-1）{
打印“组1已被删除\n”；
}
}
elsif（$opt==4）{
$duser=`sudo userdel mjensen`；
如果（$？！=-1）{
打印“用户mjensen已被删除\n”；
}
}
elsif（$opt==5）{
打印“您已退出程序”；
}
子显示菜单{
打印“主菜单”\n；
打印“选项1创建组\n”；
打印“选项2下拉组\n”；
打印“选项3创建用户\n”；
打印“选项4删除用户\n”；
打印“选项5退出菜单\n”；
打印“输入选项=>”；
返回；
}

#!/usr/bin/perl

$opt = 0;
&disp_menu;

$opt = <>;
print "You selected Option ";
print $opt;

if ($opt == 3) {
    $user = `sudo adduser mjensen`;
    if ( $? != -1 ) {
        print "user mjensen has been created\n";
    }        
}
elsif ($opt == 1) {
    $group = `sudo groupadd Group1`;
    if ( $? != -1 ) {
        print "group Group1 has been created\n";
    }
}
elsif ($opt == 2) {
    $dgroup = `sudo groupdel Group1`;
    if ( $? != -1 ) {
        print "group Group1 has been dropped\n";
    }
}
elsif ($opt == 4) {
    $duser = `sudo userdel mjensen`;
    if ( $? != -1 ) {
        print "user mjensen has been dropped\n";
    }
}
elsif ($opt == 5) {
    print "You have exited the program";
}

sub disp_menu {
    print "Main Menu\n";
    print "Option 1 Create Group\n";
    print "Option 2 Drop Group\n";
    print "Option 3 Create User\n";
    print "Option 4 Drop User\n";
    print "Option 5 Exit Menu\n";
    print "Enter Option => ";
    return;
}