view release on metacpan or  search on metacpan

bbtest  view on Meta::CPAN

				push @output, $_;
			} else {
				die qq(Unknown output format "$_");
			}
		}
	},

	'utf-8|utf8|8' => sub {
		$enc = 'UTF-8';
	},
	'character-set|charset|encoding|e=s' => sub {
		$enc = $_[1];
	},

	'file|f=s'	=> sub { doFile $_[1] },
	'<>'		=> sub { doString $_[0] },
) or exit(1);

doString(shift) while @ARGV;