Error check much?

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

--
Casey