test.pl

来自「perl learn perl by examples」· PL 代码 · 共 7 行

use Car;

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