$query = "SELECT Student.ID, Student.NAme ,Student.Adresse,Student.Bemerkungen FROM Student";
 $sth =$dbh->prepare($query) ||die "Querry Error prepare: $DBI::errstr\n";
 $execu =$sth->execute() || die "Querry Error prepare: $DBI::errstr\n";

    while($newdata = $sth->fetchrow_hashref){
    
      print "ID $newdata->{ID} Name:$newdata->{Name} Adresse:$newdata->{Adresse}  Bemerkungen:$newdata{Bemerkungen} \n";

print sprintf("ID %10s Name: %10s Adresse: %15s Bemerkungen: %10s \n" ,@{$newdata}{qw/ID Name Adresse Bemerkungen/});