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

my $dave = new Foo ("dave", "oranges", "grapefruit");
$dave->("debug message");

package Foo;

sub new {
        my ($class, @stuff) = @_;
        return sub { doit(@stuff, @_) }; # <-- closure here?
}

sub doit {
        print shift, ": ", join(",", @_), "\n";
}