swd

スクリプトファイルの場所をカレントディレクトリとしてくれるpragma 。

状況が以下のようで、

hoge/aa.txt bb.txt swd.pl

perl hoge/swd.pl

中身以下で上記を実行すると

print "callee: $ENV{PWD}\n";
print $_,$/ for glob'*';

んなかんじになります。

callee: hoge/
aa.txt
bb.txt
swd.pl

生成系で便利かも。

http://search.cpan.org/~vidul/swd/lib/swd.pm