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__