use Net::IP;
$i=new Net::IP("$ARGV[0]-$ARGV[1]");
@l=$i->find_prefixes();
foreach(@l){ 
	($i,$m)=split("/"); 
	$i=new Net::IP($i); 
	print$i->short()."/$m\n";
}