use strict;

my @cmd;
my ( $ip , $pf );
my @kip;
my $num;

@cmd = ( 'wget' , '--output-document=apnic-iplist.txt' , 'ftp://ftp.apnic.net/pub/stats/apnic/delegated-apnic-extended-latest' );
system( @cmd );

open( FH , "<./apnic-iplist.txt" );
while( <FH> ){
if ( $_ =~/apnic\|KR\|ipv4\|(\d+\.\d+\.\d+\.\d+)\|(\d+)/ ){
$ip = $1;
$pf = &GetPrefix( $2 );
push( @kip , "$ip/$pf" );
}
}
close( FH );
$num = @kip;


foreach( @kip ){
print $_ . "\n";
}

print "$num of KR IP Address was found.\nOK\n";