Select Code to Download

sub WriteSpinData {
    my( $OUT_FH, $ref )  = @_;
...
        printf "%s: %d major frames\n", basename( $filename ), $last_m
+ajor;
    }
}