#!/usr/bin/env perl
use warnings;
use strict;

use Foo;
use feature 'signatures';

foo(9,10);

sub foo($x,$y) {
	print $x+$y,"\n";
}