#!/usr/bin/perl
#-*-cperl-*-

use strict;

use lib '/app/tools/data_classes/lib';
use User::User;
use Getopt::Std;

my %arg;
getopts( 'e:p:f:l:', \%arg );

unless ( $arg{e} && $arg{f} && $arg{l} ) {
    die <<"EOT";
Incomplete Input!

 Usage:

  $0 -e <email> -f <first_name> -l <last_name>
EOT
}

my $user = new User::User;

$user->Email     = $arg{e};
$user->FirstName = $arg{f};
$user->LastName  = $arg{l};

$user->Save || die $user->Error;

printf "The user_id for the new user is: %d\n", $user->UserID;