#!/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');