Perlのファイル内の文字列置換をワンライナではなくスクリプトでやる1つの方法

よくワンライナで、

% perl -pi -e 's/foo/bar/' file

とかやって、fileの中身の foo を bar に置換するけど、それをスクリプトでやりたいときはどうするんだと同僚に聞かれて実験してみた。当たり前だけど、下記のようにしたら出来た。これって正しいのだろうか。

#!/usr/local/bin/perl -pi

use strict;
s/foo/bar/;

追記：
Perlクックブックに載っていた模様。
場所は7章の「レシピ7.9 ファイルを-iスイッチを使って、その場で更新する」。

やり方は↑のやつでいいみたい。shebangにオプションでよいようです。
ちなみにあなたが漢であるならば必要ないが、「-i」オプションを「-i.orig」とするとバックアップのファイル(filename.orig)を勝手に作ってくれるので吉。