Cのプログラムだと

unsigned long *seed;
(*seed) *= 1103515245;

って書くと単純に下位32ビットだけ取り出せますが
Perlではどうして書いたらいいでしょうか？