package Somename;
foo(1,2,3,4,5);

sub foo($;$$) {
    my $one = shift;
    my $two = shift;
    my $three = shift;
    my $four = shift;
    my $five = shift;
    
    # long complicated code

##</code><code>##

use Somename;
Somename::foo(1,2,3,4,5);