#####bar.pl#####
#!/perl/bin/perl

use warnings;
use strict;

require "./foo.pl";

&foo('test', 'this');

#####foo.pl######
#!/perl/bin/perl

my @args = @_;

foreach (@args) {
    print "ARGS: $_\n";
}