or download this
print "Symbol: $h1{'symbol'}\tExpn_date: $exp\tStrike: $h1{'strike'}\t
+Bid: $h1{'bid'}\tAsk: $h1{'ask'}\tLast: $h1{'last'}\tOpen: $h1{'open'
+}\tVolume: $h1{'volume'}\n ";
my $ins_rec="INSERT INTO $table (symbol,expn_dt,strike,open,bid,ask,la
+st,volume) VALUES(\'$h1{'symbol'}\',\'$exp\',\'$h1{'strike'}\',\'$h1{
+'open'}\',\'$h1{'bid'}\',\'$h1{'ask'}\',\'$h1{'last'}\',\'$h1{'volume
+'}\');";