Select Code to Download

<p>data:info john:100 kent:2000</p>
<p>data:info ferr:100 tom:2000</p>

#!/usr/bin/perl 

...

print "data:$row->[0] $row->[1]:$dat1 $row->[3]:$dat2", "\n";