Select Code to Download

package Car;
sub new { bless {},shift };
sub title { $_='title'; 'BITTER' };
...
print map{{title=>$_->title(),desc=>$_->descr()}} Car->F();
use Data::Dumper;
die Dumper map{{title=>$_->title(),desc=>$_->descr()}} Car->F();