use Data::Dumper;            # Modul laden
$Data::Dumper::Useqq = 1;    # Nichtdarstellbare Zeichen als oktal \xxx oder Zeichen \x ausgeben
print Dumper( $s );          # Dump der Variablen