Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    }
    close $client;
}

#!/usr/bin/perl -wl
use strict;
...
    print "$count: @data";
}
close $sock;

$ ./888339_c.pl
3: 1 1 1
...
3: 14 14 14
1: 15
...