#!/usr/bin/perl

use Devel::AutoProfiler;
&do_it();

sub do_it {
   print "Hello world\n";
   for ( 1 .. 20 ) {
      print "$_\n";
   }
}
# OUTPUT BELOW : I have removed code output for legibility
$VAR1 = [
          'main::do_it',
          {
            'total_calls' => '1',
            'file -, line 3' => '1',
            'total_time_in_sub' => '0.003332'
          }
        ];