#!/usr/bin/perl -w
use strict;

package Thing;

sub new {
  bless {}, shift;
}

sub say {
  print "@_[1 .. $#_]\n";
}

package main;

my $thing = Thing->new;

$thing->say('Hello', 'World');

my $say = \&Thing::say;

$say->($thing, 'Goodbye', 'All');