#!/usr/bin/perl -w

open SESAME, "testfil";

while (<SESAME>) {
        chomp;
        print "main: $_ ";
        if ($_ =~ /baz/) { print "go! \n"; &aSub(*SESAME) }
        print "\n";
}

sub aSub {
        my $inFile = shift;
        while (<$inFile>) {
                chomp;
                print "sub: $_";
                if ($_ =~ /bao/ ) { print " return!"; return };
                print "\n";
        }
}

##</code><code>##

foo
bar
baz
bam
bao
fee
fie