Select Code to Download

my @rows = $csv->fragment( *DATA, "col=11;15;18" );

#!/usr/bin/perl
use strict;
...
__DATA__ 
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z
z,y,x,w,v,u,t,s,r,q,p,o,n,m,l,k,j,i,h,g,f,e,d,c,b,a

$ perl 1140597-2.pl
K O R
p l i
$