strace perl -e 'rand'