Select Code to Download

use strict;
use warnings;
...
    
    print "$subroutine $filename ($line): $str\n"
}

main::Logit noname.pl (4): In Logit