关于两个脚本互相调用的问题

如果我写了两个脚本
A
B
然后B想调用A 如何实现啊？ 就像shell中的 source   或者. ./A.KSH
谢谢！

得看是什么层次的调用。
也就是说，在 B 眼中，A 是什么。

调用很简单吧
直接在a里面
system("perl","B")
至于你想干什么是另外一回事情
B调用以后出什么结果你都没有说

两个想法：
1.A只是一个简单的配置文件，定义了一些变量，然后B需要引用A中定义的变量
2.A是一个实现一定功能的函数，包含一些比如sub等，然后B需要调用A里面的一些sub。

我没说清楚，不好意思。
麻烦高手执教一下，2是不是可以写成一个model，然后注册到自己的perl 中去，然后可以使用了啊？ 小弟初学perl，请多包涵。  万分感谢！

do 'a.pl';
或者
eval 'a.pl';
都行，是等效的。

perldoc -f require

1和2两种方式都可以是吧？？ 我试试  谢谢了！
还有一个就是如果我自己写了一个比如pl文件，想注册为modue，怎么注册啊？ 谢谢！

module 不是注册以后才能用的，编写好之后，就可以使用。
只不过要注意搜索路径。
缺省的搜索路径可以通过 perl -V 来查看。
use lib 可以添加自己的搜索路径。
perldoc lib

我知道了！  谢谢！
我刚才做了一下实验
A:
#!/usr/bin/perl -w

sub xprint
{
$x=10;
print "[$x[\n";
}

B:
#!/usr/bin/perl -w
use strict;
do 'parameter.pl';
xprint();

运行B的时候报错：
Undefined subroutine &main:print called at ./perltest line 45, <TEST> line 1.

能帮忙看一下麽？？

print "[$x[\n";
应该写成
print "[$x]\n";