PDL::srandom(42);    # not PDL->srandom(42)
$r = PDL->random();  # not PDL::random();