Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    
    writefraw( $s1, "fname-1" );
    writefraw( $s2, "fname-2" );
    
  2. or download this
    use strict;
    use warnings;
    ...
        shift @b;
        return \@b;
    }
    
  3. or download this
    No thread (byte)
    ---------
    ...
    ---------
    Time: 51
    Count: 145