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

package POP::Error;

use overload '""' => sub {"System Error: ${$_[0]}"};

sub new {  bless \$_[1], $_[0] }

1;