決まった記述はサブルーチンに納めて使用すると非常に記述が楽になります。
サブルーチンは以下のように記述します。

sub job1 {

ここに処理内容を記述します。

}


呼び出す場合は・・・

&job1;

となります。

このjob1は他の名前でもかまいません。regstとかsendとか色々使えます。

使用例・・


if(!open(IN,"$file")) { &error;}
@line = <IN>;
close(IN);


sub error {

print "Content-type: text/html\n";

print 'ファイルOPENができませんでした。';

}


この例では、ファイルを開くことができなかった場合に、サブルーチン
&errorが呼び出されて「ファイルOPENができませんでした。」と
表示されます。