package Pkg;

use overload '""' => sub { "[[[" . $_[0]->{val} . "]]]" };

package Main;

my $x = { val => '10' };
bless $x, Pkg;

print $x;
#  [[[10]]]