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

print "Hello, World...\n";

my $perl = "a.pl";

$perl->(10,20);

##</code><code>##

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

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