#           This one won't work
#           @ARGV = ('$mail_directory/users/$table_ext/$user\@domain.com') 
            unless @ARGV;

#           But this one will:
            @ARGV = ('/home/account/users/po/username@domain.com') 
            unless @ARGV;            
            die "usage: $0 dir ..\n" unless @ARGV;
                foreach $dir (@ARGV) {
                rmtree($dir);        
                }
          print "Deleting user's directory: @ARGV\n";