Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    local $,=' ';
    print 'd:', splice(@a,0,LIMIT), $/;
}