knoppix@Microknoppix:~$ perl -E '
> $sayIt = 1;
> do {
>    say q{Hello};
>    say q{World};
>    } if $sayIt;'
Hello
World
knoppix@Microknoppix:~$