my $inf = exp(~0 >> 1);
    my $nan = $inf / $inf;

    my $neg_inf = -$inf;
[download]

Note that any sufficiently large number will suffice instead of (~0 >> 1).