Select Code to Download

use strict;
use warnings;
...
    print "$line, $subroutine (pos = $pos)\n";
    exit;
}

15, main::doReport (pos = 2)