### Example of HTML generated by Dancer2::Plugin::SyntaxHighlight::Perl

1: use strict; use warnings; 2: use feature qw/ say /; 3: 4: use Time::HiRes qw/ time usleep /; 5: 6: sub say_numbers { usleep(750000) and say "$_[0] $_" for 0 .. 5 } 7: sub say_letters { usleep(500000) and say "$_[0] $_" for 'a' .. 'e' } 8: 9: my $start = time; 10: 11: say_numbers($$); 12: say_letters($$); 13: 14: my $elapsed = time - $start; 15: 16: say sprintf '%s done in %.3fs', $$, $elapsed; 17: 18: __END__