#!/usr/bin/perl -w
use CGI;
$cgi=new  CGI;

print $cgi->header();

print $cgi->body("<p><center><h1> User add page</p><center></h1>"), $cgi$

$input = $cgi->param('name');

$name = system "useradd $input";


print "anew user has been added to you system :$name";

print $cgi->end_html();