Select Code to Download

use strict;
use warnings;
...
    or die("Error returned by $cmd[0]: $?\n");

print("Receveived ", length($out), " chars\n");

$ perl a.pl
Receveived 100000 chars