在呼叫指令碼時，用Perl給命令列輸入參數直接賦值

我有一個叫a.pl的Perl指令碼，裡面有類似下面的讀取命令列輸入值的語句：
my $device_name = <STDIN>;
如果我在b.pl指令碼裡，用system或是readpipe命令來粘合指令碼a.pl，當運行到上面這個語句的時候，命令列會提示輸入一個值。
有的時候，比如說自動化指令碼測試中，希望能讓指令碼b.pl自動輸入這個值，或者說，自動在b.pl指令碼裡給a.pl指令碼裡的變數$device_name賦值。
這樣，程式就可以不用人工幹預，全部自動運行了。
可以在b.pl中，用類似這樣的語句來實現這個功能：
system(“echo yes|perl a.pl”);
或是
my @dev_check_result = readpipe(“echo “.$dev_file.” | perl a.pl”);
這樣，在調用a.pl時，在命令列提示說要輸入一個值給變數$device_name的時候，就會自動把yes或是$dev_file這個值賦值給a.pl裡的$device_name變數。