my @anyarg=@ARGV;
if (!@anyarg) { if (-t STDIN) { *ARGV=*DATA; } else { @anyarg=<>; } }