確かに意味不明でした。修正します。
今、入力ファイルが引数またはSTDINで処理しようとしています。

使用法Ａ：script.pl inputfile
使用法Ｂ：script.pl < inputfile

# script
if ( @ARGV[0] eq 0 ) {
$fh = *STDIN;
$f_flag = 0;
} else {
open IN, $ARGV[0] || die "I can't open";
$fh = *IN;
$f_flag = 1;
}

while(<$fh>){
処理
}
$f_flag = 1 なら閉じる

としているのですが
使用法Ａも使わず使用法Ｂも使わなかった時の良い対処方法が見つかりません。
どのようにしたらいいでしょうか？

>単に標準入力か引数のファイルを読みたいだけなら<>でもいいんじゃねーの？
これは知りませんでした。
今、試しましたがやっぱり使用法ＡもＢもしなかったときは
自動的にスクリプトが終了しないですよね？
どうしたらよいのでしょうか？