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