while ( !$perl6finished ) { &codePerl5; sleep (86400); }