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

package Thing;
sub stuff { return 'word'; }
sub new { return bless {}, shift; }

package main;
my $thing = new Thing;

print $thing->stuff, "\n";
print "$thing->stuff\n";
print $thing, "\n";