package PKW{
    use strict;
    use warnings;

    # Auto bauen
    sub new{
        my $class = shift;
        bless{ 
            tank => Tank->new( fuel => 100 )
        }, $class;
    }

    # Tankinhalt ändern, delegierte Methode
    sub fuel{
        my $self = shift;
        return $self->{tank}->fuel(@_);
    }
};

1; ##########################################################
package main;

use strict;
use warnings;
use Data::Dumper;

my $pkw = PKW->new();
my $zweitwagen = PKW->new();
$zweitwagen->fuel(0); # Leerfahren

print $pkw->fuel;