`chown $ACCOUNT:$ACCOUNT $HOME_DIR/public_html`;
qouta also.

When i try to run this i am getting ERROR

script as follows

#!/usr/bin/perl

#===============================================================================
# Usage:        $0 <account> <password> <comment>
# Return:       SUCCESS | DUPULICATE | ERROR
#
#===============================================================================

$version = "2.0";

#------------
# definition
#------------
$ACCOUNT = $ARGV[0];
$PASSWORD = $ARGV[1];
$GCOS = $ARGV[2];
$HOME_DIR = "/home/www/"."$ACCOUNT";
$HOME_DIR_FTP = "/home/www/"."$ACCOUNT"."/./";
$SAMPLE_DIR = "/home/www/SAMPLE/*";
$SHELL = "/nosuchshell";
$LOCK_FILE="/user/scripts/www/.webspace.lock";

#------------
# check args
#------------
if ( $ACCOUNT eq "" || $PASSWORD eq "" || $GCOS eq "" ) {
    print "ERROR\n";
        exit;
        }

        #-----------------
        # duplicate check
        #-----------------
        if ( 0 ) {
            print "DUPLICATE\n";
                exit;
                }

                #---------------------
                # password encryption
                #---------------------
                $CRYPTED_PASSWD = &crypt_passwd($PASSWORD);
                if ( $CRYPTED_PASSWD eq "" ) {
                    print "ERROR\n";
                        exit;
                        }

                        #------
                        # lock
                        #------
                        &lock($LOCK_FILE);

                        #------
                        # main
                        #------
                        mkdir("$HOME_DIR", 0755) || die "ERROR\n";
                        `useradd -G ftponly -p "$CRYPTED_PASSWD" -c "$GCOS" -M -d "$HOME_DIR_FTP" -s "$SHELL" $ACCOUNT`;
                        `cp -R $SAMPLE_DIR $HOME_DIR`; 
                         #--------
                         # unlock
                         #--------
                         &unlock($LOCK_FILE);

                         #----------------
                         # return success
                         #----------------
                         print "SUCCESS\n";
                         exit;

                         #--------------
                         # sub routines
                         #--------------
                         sub lock {
                         my ($file) = $_[0];
                         open (LOCK, ">$file");
                           flock(LOCK, 2);
                              }

                               sub unlock {
                               my ($file) = $_[0];
                               flock(LOCK, 8);
                                close(LOCK);
                                       }

                             sub crypt_passwd {
                             my ($passwd) = $_[0];
                             my (@letters, $salt, $crypted_passwd);
                             @letters=('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'H', 'J', 'K', 'L', 'M',
                                        'N', 'N', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
                                         'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'k', 'm',
                                         'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z');
                                        srand();
                             $salt = "$letters[int(rand(62))]"."$letters[int(rand(62))]";
                             $crypted_passwd = crypt($passwd, $salt);
                             return $crypted_passwd;
                                 }