#!/usr/bin/perl
unless (@ARGV > 1) { die "usage: agregarusr nombre_de_usuario contraseña\n" }
my ($usuario, $contrasena ) = @ARGV;
system("exec useradd -d $usuario -G users -p $contrasena");
print "Usuario $usuario ha sido agregado\n";