Select Code to Download

open(INF,"products") or dienice("Can't open productsDB: $!"); 
@data = <INF>; 
close(INF); 


foreach $i (@data) { chomp($i); ($productId,$nmPrice,$mPrice,$itemName
+,$shortdesc,$image,$address) = split(/\|/,$i);