package return_test;

sub max 
{
    my $max = shift @_;
    foreach my $foo (@_) 
    {
        $max = $foo if $max < $foo;
    }
    return $max;
}

package main;

$bestday = return_test::max( $mon, $tue, $wed, $thu, $fri );

##</code><code>##

.