test.pl

perl learn perl by examples

use Car;

foreach (1 .. 3) {
    $c = Car->new();
    $c->drive();
}