sub callback { 
    my $coderef = shift; 
    my @args = @_; 
    sub { $coderef->(@args) } 
}