my $if = new IO::File;
 $if->open("< daten.pl")