#!/usr/bin/perl -l

package Tom;

sub out {
    print "Reached out";
}

package main;

use Safe;

my $t = Safe->new->reval('bless {},"Tom"');

print $t;

print $t->out;

__END__
Tom=HASH(0x18d0b48)
Can't locate object method "out" via package "Tom" at safetest.pl line 17.