$ perl -MO=Deparse -e 'if(1) { $foo = "perl" x 1000000; sleep 5; }'
do {
    $foo = 'perl' x 1000000;
    sleep 5
};