Off-topic from the original question, but whenever you do print sprintf, you should think about just using printf directly. I think this is clearer:

while (<$hndl>) {
    printf "%7d  %s\n", $., $_;
}
[download]