#!perl -p
INIT{@ARGV=($0)}