Select Code to Download

#!/usr/bin/perl -Tw
use strict;
BEGIN { $ENV{PATH} = "/usr/bin:/bin" }
...
    my $len = length $str;
    return "($len+6)$str";
}

#!/usr/bin/perl -w
use strict;
use Socket;
...
(21)(15+6)backslash \n__
(22)(16+6)backslash \r\n
(22)(16+6)backslash EOL_