perl 在执行外部命令时需要输入，怎么在脚本中直接输入？

脚本a代码：
#!/usr/bin/perl
print "s\n";
$a =<STDIN>;
$b =<STDIN>;
$c =<STDIN>;
print "$a$b$c";

脚本b代码：
#!/usr/bin/perl
open F, "a|";
while(<F>){ print $_;}

请问，在命令窗口中执行b脚本的时候，b脚本调用了a脚本，但a脚本需要3个输入，怎么才能在b脚本中加入代码输入，使运行脚本b时可以直接显示$a$b$c?