Select Code to Download

foreach ( CMP <INPUT> ){                                          
       print $_; 
...
        my($b0) = $b -> [2];                      
        $b0 <=> $a0
}

while (<INPUT>){
     split ( $ip, $num1, $num2);
     printf "%18s %10s %10s\n", $ip, $num1, $num2 ;
}

@sorted = map { $a->[2] cmp $b->[2]
    || $a->[2] <=> $b->[2]
    chomp; [split]
    <INPUT>}