#!/usr/bin/perl
# cpanel - isdedicatedip                          Copyright(c) 2010 cPanel, Inc.
#                                                           All rights Reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

BEGIN { unshift @INC, '/usr/local/cpanel'; }

use Cpanel::DIp;

my $res = ( Cpanel::DIp::isdedicatedip( $ARGV[0] ) );
if ($res) {
    print "$ARGV[0] is a dedicated IP\n";
}
else {
    print "$ARGV[0] is NOT a dedicated IP\n";
}