[lexik]

sub ali{
my ($a,$c)=shift;
Parser::run_commands($a." ".$c);
}

я юзаю в таких случаях вместо sendl вышеприведенную процедуру и все нормально