Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use strict;
...
my $re = system("useradd -g $grp -p $cpass -d $home $user");
print "ADDUSER:$re\n";
exit;
  2. or download this
    my $real = getpwuid($<);
my $effective = getpwuid($>);