#!/usr/bin/perl -w
use strict;
use Getopt::Long;

my ($username, $password, $domain);
my $result = GetOptions("username=s" => \$username,
                        "password=s" => \$password, 
                        "domain=s => \$domain");
                                                         
system ("adduser $username -g 100 -s /bin/false -d /home/$username -p $password");
                                                                                open (VFILE, ">> /etc/postfix/virtual");                                                                                                 
print VFILE "$username\@ap3k.com\t$username\n";
close (VFILE);
                                                       
system ("postmap /etc/postfix/virtual");