perl -MPDL::Lite -E "srand(3); say rand();"
perl -MPDL -E "srand(3); say random();"