Recuperer la sortie de PRINT en PERL

Bonjour,
Je veux recuperer ce qu'écrit la fonction print dans une variable ! je galere depuis des heures avec ca ca me rend dingue.

J'ai essayer:

1:
> print $in->names
ca écrit une chaine de caractere exemple "arbre"

2:
> $var1= print $in->names
j'ai le code d'erreur de la fonction

3:
>$var= sprintf('%s',print $in->names);
ca donne un code d'erreur

4:
>$var2=sprintf('%s', "$in->names");
pareil

Comment faire?

merci