m.pl

	# errors are at odd indices
	sub ioErr {
		my ($c, @arr) = @_;

		# rethrow exception
		die($arr[1]) if ref($arr[1]);

		my $i = 0;
		my $err = join "; ",
			grep { $i++ %2 and $_ } @arr;

		die({err => $err}) if $err;
	}