if ( defined $QuestionLine and $QuestionLine ne '' ) {

  $d =  substr( $QuestionLine, 0, 1 );

  # mehr tun mit $d, etc.

  # Sub beenden und skalare 1 (im Sinne v. TRUE) zurueckliefern
  # alternativ such Dir nen Wert, der hier sinnvoll generiert
  # werden koennte, und liefer den zurueck (wenn er denn
  # ausserhalb sinnvoll verwendet/geprueft werden kann)
  return scalar 1;
}
else {
  # was tun, weil $QuestionLine nicht definiert ist
  # Sub beenden und undef als Fehlerzeichen zurueckgeben
  return undef;
}