#!/usr/bin/perl
use strict;
use warnings;

{
    package Test;
    use overload '""' => sub { print @_; }; # dangerous
    sub new{
    return bless {}, __PACKAGE__;
    }
}

my $o = Test::new();
print $o; # segmentation fault here