use strict;
use warnings;

package UNIVERSAL;

# Couldn't decide which syntax would be more likeable.
sub do {
  my $ob = shift;
  my $method = shift;
  $ob->$method(@_);
}

sub do2 {
  my $ob = shift;
  my $method = shift;
  sub { $ob->$method(@_) };
}

package U;

sub voo {
  my $ob = shift;
  print "Called with @_\n";
}

sub new {
  return bless {};
}

package main;

my $foo = U->new();
$foo->do('v'.'oo', 1..3);
$foo->do2('v'.'oo')->(1..3);