my $foo = 'bar';
sub process_challenge {
    my $challenge = shift;
    say $foo;
}

package Foobar;

sub accept_challenge {
	my $a = shift;
	$a->();
}

accept_challenge(\&main::process_challenge);