Originariamente inviato da Mich_
Prova con:
if (substr($risp,0,1) eq 's'){

Oppure (meglio):
if (lc(substr($risp,0,1)) eq 's'){

Infatti una stringa in Perl non puo` essere di un solo carattere: c'e` sempre il \n (oppure \0) che "chiude" la stringa.
ma scusa... anche se io metto ' ' invece di " " ... .e comunque avevo provato anche con "si" e "SI"... ma non è cambiato l'effetto...