adding the Sub to Codemodule and calling it from perl worked fine {with below code}. How do I call this Sub again from Excel, when i open vb editor I did not see any module with the Sub created from perl. Please help!

my $code = <<'END_CODE';
Sub dosomething(say As String)
For Each cell In ActiveSheet.Range("A1:A10")
cell.Value = say
Next cell
End Sub

END_CODE

my $codemodule = $mod->Codemodule;
$codemodule->AddFromString($code);

$xlApp->Run(
'dosomething',
'test...'
);
[download]