Mac OS alias from Perl

Hello,
Does anyone know how to make a Mac OS alias in Perl?  So, I wish to 
have Perl create aliases in multiple directories rather than copy the 
original file.

Thanks,
Dan
--