symlink $temp, $target or die $!;
# or
print symlink $temp, $target ? $target."-> ".$temp."\n" : $!;