@ARGV = $0; print while <>;