Is there a Perl equivalent to Python’s `if __name__ == ‘__main__’`?

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

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