Select Code to Download

sub foo
{
...
    }
    return $foo_return;
}

sub foo
{
...
    $bar_return = munge_munge( $bar_arg );
    return $bar_return;
}

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

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