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 ) );