Select Code to Download

#!/usr/sbin/perl -w

use strict;
...

    $out_raw = sprintf(" %8.0f %8.0f", $in_data[1], $in_data[2]);
...