#!/usr/bin/perl

print P->new();

package P;
use Carp;
use overload q("") => \&asString;
sub new { bless( {}, shift) }
sub asString { confess }