method => sub {
    my ($self, @ARGV) = @_;
    print "The first argument is $ARGV[0]\n";
    print "The second argument is $ARGV[1]\n";
    ...
  }