schmeiss mal die zeile
  while ($line = <STDIN>){
raus. da hängt dein programm. und dann stimmt die anzahl der
}-klammern auch wieder