perl script

[Sandra Regina de Souza]

Hello!

   I'm trying to run a perl script which one do a subscribe
into a user.test.spam mailbox, for example. The mailbox user.test is ok 
(has been created first, and is in use). But I have to create another
mailbox, for every user in cyrus imap,named for example "spam".
   When I try to do a $err = $imap->subscribe("user.bob"), after
$my $Err = $Imap->create("user.test.spam")
  it does nothing.
  My cyrus imap version is : v2.4.16.

  How can I do a subscribe in perl script?

Thanks in advance.

sandra