my $zahl;
chomp($zahl =<STDIN>);
my $ausgabe = log($zahl);

# Für bieber;)
print $ausgabe;