my $Frage = <STDIN>;
        while ($Frage!=""){

my $variable = <STDIN>;    
# auch wenn der benutzer nur return drückt ist trotzdem $variable = "\n"

# das newline-zeichen kann man aber mit chomp entfernen:
chomp $variable;

# der vergleichsoperator für strings heißt 'eq':
while (not($variable eq "")){

# oder - die negativierte form namens 'ne' -
while ($variable ne ""){

while ($frage ne '')

chomp $var;
if( length($var) > 0 ) {
    # es ist etwas in der Variable drin...
}

$gosa=$entry->get_value("gosaMailAlternateAddress");    
                $mail=$entry->get_value("mail");
                

                #print ("sn : $sn\n");
                print ("cn : $cn\n");

                if( length($gosa) > 0 ) 
                        {               
                        print ("gosa : $gosa\n");
                        }
                else
                        {
                        print ("gosa : nicht vorhanden\n");
                        };

if ( defined $gosa && length($gosa) > 0 ) {
 ...
}
...