$tdin = <STDIN>;
  chomp($tdin);
  $din = <STDIN>;
  chomp($din);