Help for this page

Select Code to Download

Select or download this

#!/bin/perl -w 
use strict; 
...
__DATA__
1,2,3,4
A,B,C,D