Select Code to Download

#!/usr/bin/perl -w
use strict;my%
...
l = shift;$p.=substr$!,(unpack'c',$l)/10,
      (unpack'c',$l)%10;}};
      &$e(@t);print$p,$/;