#!/usr/bin/perl -w

#move to the right directory
system("cd /usr/local/sendmail/smmstore-1.0.0/sbin ./msadm_tclsh")

#set the domain
system("msadm> domain_set blah.blah.com")

#add the user
system("msadm> mbox_user_add antivroom")