[Madrid-pm] Presentacion y primera. SOS

[Miren Urkixo]

Hola soy nueva por aqui, buenas noches
Estoy empezando con perl ytengo que hacer unas cosillas.
bien, os comento a ver si me podeis hechar una mano.
Resulta que estoy haciendo un programita para dar de alta, en un linux, 
usuairos. lo tengo que hacer y ademas con perl.
bien he hecho algo que lleva el codigo de abajo con el que pretendo dar de 
alta un usuari ocon el comando:

useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s \/bin\/bash 
$aplicacion
donde aplic_base es un directorio (/home/pruebas) y $aplicacion es el 
usuario

me da unerror en la linea del user add.
Me podriais ayudar?
muchas gracias y un saludo

Ah por otra parte el comando este me pide el password encriptado (cryp) me 
podeis ayudar tambien en esto?
muchas gracias





#!/usr/bin/perl

use CGI;

$aplic_base="/home/pruebas";


#tantas lineas como la sigueinte seran necesarias para que pida mas 
parametros, una por cada parametro
$aplicacion = &promptEntrada("Codigo de aplicacion (Minusculas) ");

print "#############################################\n";
print "Empiezo a crear aplicacion $aplicacion ....\n";
print "#############################################\n";

if($aplicacion ne ""){
        useradd -g users -p pass -d $aplic_base\/$aplicacion -m -s 
\/bin\/bash $aplicacion;

}else{
        print "######################################\n";
        print "Aplicacion NO correcta\n";
        print "######################################\n";
        exit;
}
sub promptEntrada{
   local($promptString,$defaultValue) = @_;

   if ($defaultValue) {
      print $promptString, "[", $defaultValue, "]: ";
   } else {
      print $promptString, ": ";
   }

   $| = 1;               # force a flush after our print
   $_ = <STDIN>;         # get the input from STDIN (presumably the 
keyboard)

   chomp;

   if ("$defaultValue") {
        print "Si\n";
        return $_ ? $_ : $defaultValue;    # return $_ if it has a value
   } else {
        print "No\n";
      return $_;
   }
}