%# Due to lack of disk space, this fortune database has been
%# discontinued.
<%PERL>
my $Sibling = $Part->next_sibling or return;
$Part->move(after => $Sibling);
return 1;
</%PERL>
<%ARGS>
$Part
</%ARGS>
