間の悪い時にくだ質御免。

while(open(IN,<*.txt>)) {

みたいなファイルの開き方しちゃった時、
ループ内で「今開いとるファイル名」を得る方法ってありませんでしょか。
前もって$filename = glob("*.txt");
とかするより楽な方法が、なんかあるんじゃないかと気になって眠れない。