#!/usr/bin/perl -w

use NoCat;

my $user = NoCat->user( ConfigFile => $ENV{NOCAT} ); 

$user->set(
    User => $ARGV[0],
    Pass => $ARGV[1],
    Status => $ARGV[2]
 );

$user->create;


