while (my $desperation = 1) {
  seek(SUSAN,0,0);
}