[Ladon]

попытался заюзать
при варке ругается
#perl: Undefined subroutine &QBaze::alias called at ./Cook.pm line 252.
252 my $i = QBaze::alias(pop @{$have_ingr{$_}});