Select Code to Download

my ($out, $err1, $exit2) = $ssh->cmd("df -k");

...
    print "$cnt: $line\n";
    $cnt++;
}

my $cnt = 1;
while ($out =~ /\G(.+)\n?|\G\n/g) {
    print "$cnt: $1\n";
    $cnt++;
}