# add.pl
#!/usr/bin/perl
use strict;
use warnings;

print "here\n";
return sub {
	my ($a , $b) = @_;
	return 0;
};