The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
abc<perl>print join('', qw(d e f))</perl>g<perl>my $foo="foo"; $main::bar = "bar"</perl>