unless (caller) {
  print "This is the script being executed\n";
}

请参见主叫方.它在主脚本中返回undef.请注意，这仅在***代码中无法在子例程内起作用.

See caller. It returns undef in the main script. Note that that doesn't work inside a subroutine, only in top-level code.