package REF;
use overload q("") => sub { die "Attempt to stringify reference" };

package main;
use autobox 'REF' => 'REF', DEFAULT => undef;

...