How do you use Devel::NYTProf profiling with a short example?

Devel::NYTProf is a powerful profiling tool for Perl that helps developers identify bottlenecks in their code and improve performance. Here’s a short example of how to use it:


        #!/usr/bin/perl
        use strict;
        use warnings;
        use Devel::NYTProf;

        # Your main code here
        sub expensive_function {
            my $sum = 0;
            for my $i (1..1_000_000) {
                $sum += $i;
            }
            return $sum;
        }

        # Start profiling
        my $result = expensive_function();
        print "Result: $result\n";

        # End profiling
        Devel::NYTProf::stop();