$0

別のスクリプトからライブラリとしてrequireされてるときは何もしないで、単体のスクリプトとして実行されてるときだけ処理したいコードがあったので、$0を読んでみる。$0には実行してるスクリプト名が入ってるので、それを確認してやればok

# foo.pl
if ($0 =~ m/foo.pl$/) {
    # perl foo.plで実行したときはこのif文の中に入る。
    # bar.plからrequire 'foo.pl'してるときは素通り。
    ...
}