Select Code to Download

while (my $line = <$input>)
{
...
    printf $output " %10.3f", $columns[$_] for 3 .. $#columns;
    print  $output "\n";
}