sub foo
{
    my $foo_arg = shift;
    my $foo_return = bar( $foo_arg );
    sub bar
    {
        my $bar_arg = shift;
        $bar_return = munge_munge( $bar_arg );
        return $bar_return;
    }
    return $foo_return;
}

##</code><code>##

sub foo
{
    my $foo_arg = shift;
    my $foo_return = bar( $foo_arg );
    return $foo_return;
}

sub bar
{
    my $bar_arg = shift;
    $bar_return = munge_munge( $bar_arg );
    return $bar_return;
}

##</code><code>##

my $sub_ref = sub { munge_munge( shift ) };

##</code><code>##

open BINFILE, "<", "somefile.txt" or die $!;
ReadBytes( $num, \*BINFILE );

sub ReadBytes {
    my ( $num, $binfile ) = @_;
    return undef if $num < 1;
    my @bytes;
    for (1..$num) {
        my $byte;
        read($binfile, $byte, 1);
        push @bytes, unpack("C",$byte);
    }
    return @bytes;
}