$ perl -MO=Deparse -e 'while () {print "tick!\n"}'
while (1) {
    print "tick!\n";
}