Select Code to Download

package Security::Monitoring::Messaging;

use Security::Monitoring::Messaging::Messenger;
...
    my $logfile = shift;
    &run($filename,$logfile);
}

package Security::Monitoring::Messaging::Messenger;

use 5.14.2;
...

use Security::Monitoring::Messaging::Messenger;
use 5.14.2;
...
        goto WHAR;
    print "seems I'm done, father\n";
}

use Security::Monitoring::Messaging::Messenger;
use 5.14.2;
...
    $c++;
    goto WAIT;
}

use Security::Monitoring::Messaging::Messenger;
use 5.14.2;
use strict;
...
    $c++;
    goto WAIT;
}

use Security::Monitoring::Messaging::Messenger;
use 5.14.2;
...
    }
    print "seems I'm done, father\n";
}

use Security::Monitoring::Messaging::Messenger;
use 5.14.2;
use strict;
...
        goto WHAR;
    print "seems I'm done, father\n";
}

...
    goto WHAR;
    print "seems I'm done, father\n";
}

...
    goto WHAR;
    print "seems I'm done, father\n";
}

use Security::Monitoring::Messaging::Messenger;
...
    goto WHAR;
    print "seems I'm done, father\n";
}

...
    goto WHAR;
    print "seems I'm done, father\n";
}