package New::Module;

use strict;
use warings;

# 250 lines later:

sub prepare_foo
{
    # ...
    $SIG{'__EXEC__'}='special_foo';
    # ...
}

# 100 lines later:

sub do_foo
{
    # ...
    my @text=`foo \$BAR`
    # ...
}

# 200 lines later:

sub finish_foo
{
    # ...
    $SIG{'__EXEC__'}='';
    # ...
}

# 80 lines later:

sub special_foo
{
    # ...
    open STDOUT,">&STDERR";
    # ...
}


# and 500 more lines

1;