if (@ARGV > 0) {

                if ( $ARGV[0] eq "-c") {
                    if (  ! -e "$ARGV[1]" ) {
                        print "Provided xml file doesnot exists\n";
                        }
                    elsif ( -f "$ARGV[1]") {
                        $controlfile = $ARGV[1];
                        parse_xml();
                        update_exports();
                        }

                    }
        else {
                usage ();
            }
        }
            elsif (@ARGV eq 0) {
                $controlfile = 'network.xml';
                parse_xml();
                update_exports();
                exit 0;
        }


##</code><code>##

# perl script.pl -c
Use of uninitialized value $ARGV[1] in string at nfs_security.pl line 171.
Provided xml file doesnot exists