linux – 如何在Perl脚本中调用函数(在shell脚本中定义)

shell_script.sh：它有函数定义,当从Perl脚本调用时,它将以批处理模式在Linux上执行某些命令.

perl_script.pl：它具有要实现的代码和逻辑,用于调用等.

shell_script.sh文件的内容如下：

bash-4.2$cat shell_script.sh

#!/bin/bash

# Function Definitions
func_1 ()
{
  echo "function definition"
}

func_2 ()
{
  echo "function definition"
}

perl_script.pl文件的内容如下：

bash-4.2$cat perl_script.pl

#!/usr/bin/perl

use Getopt::Long;

my $var1;
my $var1;

GetOptions("var1=s"     => $var1,"var2=s" => $var2,"help|?" => $help );

if ($help)
{
    HelpMenu();
}

print " Can I call the func_1 (defined in shell script) with arguments here..?? (in this perl script)";

我怎样才能在perl脚本perl_script.pl中调用函数func_1()(在shell_script.sh中定义)？