2 added 264 characters in body

# Perl 5, 2620 bytes

First a practical 26 bytes:

Ducks 1 to 9 times before being goosed.

say"Duck
"x(1+$^T%9),Goose  Try it online! But if you have lots of memory and time this 20 byte version (as suggested by Chris) works too: say"Duck "x$^T,Goose


This also assumes the Year 2038 Problem will be solved for Perl 5, otherwise it will be invalid for 1 second 20 years hence.

# Perl 5, 26 bytes

Ducks 1 to 9 times before being goosed.

say"Duck
"x(1+$^T%9),Goose  Try it online! # Perl 5, 20 bytes First a practical 26 bytes: Ducks 1 to 9 times before being goosed. say"Duck "x(1+$^T%9),Goose


Try it online!

But if you have lots of memory and time this 20 byte version (as suggested by Chris) works too:

say"Duck
"x$^T,Goose  This also assumes the Year 2038 Problem will be solved for Perl 5, otherwise it will be invalid for 1 second 20 years hence. 1 # Perl 5, 26 bytes Ducks 1 to 9 times before being goosed. say"Duck "x(1+$^T%9),Goose


Try it online!