Select Code to Download

#!/usr/bin/perl
use strict;
...
    my ($line) = @_;
    print q{  }, join(q{ }, map {sprintf '%-12s', $_} @$line),"\n";
}