#!/usr/bin/perl -w

use strict;
use Foo;
use Bar;

$_->do_something()->() for (new Foo, new Bar);