Passing data to lm using RSPerl

I have successfully installed RSPerl.  I am retrieving data from a  
database in Perl and trying to run a linear model.  I have read the  
documentation, but I do not quite understand how to set up the call  
to 'lm' inside Perl.  Can someone provide an example I can work  
from?  Thanks.

Adam Wizon