Select Code to Download

{ my ($line,$occurrence) = (0,0);
sub some_sub {
...
    print @caller, $occurrence, $/;
}
}