$stat=symlink("oldfile","newfile");

##</code><code>##

if(-e $oldfile)
{
   #create symlink
}
else
{
   #Report $oldfile doesnt exist!