# Zeile am Ende eingefügt $Object1->set_Data( 'evil', "Runtime}; print qq{Hallo Welt\n}; \$self->{bla" );