/usr/bin/perl -w 
use strict; 
# my strict stuff here 
# and here 
# and here ... 
 
my $myvar; 
{ 
    no strict; # strict goes KABOOM 
    $myvar = ext_sub_main($arg1, $arg2, $arg3); 
    # this subroutine call other subs which are also not strict coded 
} 
 
# back in the strict code 
 
### subroutines 
sub ext_sub_main { 
    # YUKK stuff here 
    ext_sub1(blah blah); 
    ext_sub2(more blah); 
    return something; 
} 
sub ext_sub1 { 
    # HELP HELP!!! I cant see this stuff anymore 
} 
sub ext_sub2 { 
    # I need anti-depressants NOW 
}

sub mainsub { 
    open FH, ">filename.ext" || die "failed"; 
    sub1(); 
    close FH; 
} 
sub sub1 { 
    print FH "printing to FH in sub1 though it was opened in mainsub\n"; 
    return 1; 
}

prompt:/> ./script.pl 
printing to FH in sub1 though it was opened in mainsub 
prompt:/>

[root@rkb-2 ~]# ls filename.ext 
ls: filename.ext: No such file or directory 
[root@rkb-2 ~]# cat test.pl 
#!/usr/bin/perl 
 
use strict; 
use warnings; 
 
mainsub(); 
 
sub mainsub { 
    open FH, ">filename.ext" || die "failed"; 
    sub1(); 
    close FH; 
} 
sub sub1 { 
    print FH "printing to FH in sub1 though it was opened in mainsub\n"; 
    return 1; 
} 
 
[root@rkb-2 ~]# ./test.pl 
[root@rkb-2 ~]# cat filename.ext 
printing to FH in sub1 though it was opened in mainsub

#!/usr/bin/perl -w 
use strict; 
 
mainsub(); 
 
sub mainsub {  
    open FH, ">filename.ext" || die "failed";  
    sub1();  
    close FH;  
}  
sub sub1 {  
    print FH "printing to FH in sub1 though it was opened in mainsub\n";  
    return 1;  
}