Select Code to Download

    $ touch file
    $ ln -s target link
    $ rename file link

    my ($f1, $f2);
    if (sysopen $f1, "new", O_WRONLY | O_CREAT | O_EXCL) {
...
        close $f1 or die;
        unlink "old" or die;
    }