Perlには正式なインターフェースがありません

Roleモジュール（Moose/Moo）で代替：
```
# Roleを使用（Mooseが必要）
package Drivable;
use Moose::Role;
requires 'drive';
requires 'get_speed';

package Flyable;
use Moose::Role;
requires 'fly';

# 複数Role実装
package FlyingCar;
use Moose;
with 'Drivable', 'Flyable';

has 'speed' => (is => 'rw', isa => 'Int', default => 0);

sub drive {
  my $self = shift;
  print "Driving at " . $self->speed . " km/h\n";
}

sub get_speed {
  my $self = shift;
  return $self->speed;
}

sub fly {
  print "Flying\n";
}

my $car = FlyingCar->new(speed => 100);
$car->drive();
$car->fly();
```