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

package One;

sub ding {
    print "Ding (".join(',',@_).") called!\n";
}

package main;

my $classname = "One";
my $obj = bless {},$classname;
my $packagename = $classname;

$classname->ding('class method');
$obj->ding('object method');
no strict 'refs';
&{$packagename."::ding"}('regular sub');

##</code><code>##

Ding (One,class method) called!
Ding (One=HASH(0x80fbc2c),object method) called!
Ding (regular sub) called!

##</code><code>##

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.