my $t_dt = $ARGV [0];
  my $t_price = $ARGV [1];
my $ins_r = "INSERT INTO $tbl_name (t_dt, t_price) VALUES (?,?);";
$sth=$dbh->prepare($ins_r) or die $dbh->errstr;