Select Code to Download

#! perl -slw
use strict;
...
    }
    printf "%1s\t[ @{ $data[ $idx ] } ]\n", $selected;
}

C:\test>550135-2 -N=50

...
        [ 993.499755859375 1 ]
        [ 997.4365234375 3 ]
        [ 998.504638671875 1 ]