The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

#!/usr/bin/perl


use Ruby;
use Ruby qw(rb_const);

rb_const(ENV)->each(sub{
	puts $_[0] . " = " . $_[1];
});