this version uses the services of The (Combinatorial) Object Server.

use LWP::Simple;

my $cosder = "http://www.theory.csc.uvic.ca/~cos/per/perm/perm.pl.cgi?
+program=Derange&output1=true&n=";

sub derangements
{
 map[@_[split/, /]],get($cosder.@_)=~/<TD ALIGN=CENTER>(.*?) <BR>/g
}

print "@$_\n" for derangements( qw( aleph beth gimel daleth ) );
[download]

Unfortunately, they don't appear to have an xml or text/plain option.