#!/usr/bin/perl

use strict;
use warnings;

BEGIN {
    use FindBin;
     use lib (
         "$FindBin::Bin",
         "$FindBin::Bin/../Lib",
         "$FindBin::Bin/../Packages"
     );
    $ENV{TMPDIR} = $ENV{TEMP} || "";
};
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer =:-)

use Ox::WebMail::User;

my $userdb = new Ox::WebMail::User;
my $id = $userdb->add(
    username => 'esskar',
    password => 'uhu'
);

print "$id\n";