You can't get there from here

"Is my program going to finish?"

        sub i_never_finish {
          my $arg = shift;
          print "NARF\n" while 1;
          return "I LIKE PIE.\n";
        }