Select Code to Download

  sub fileop($;$) {
    my ($op, @argv)=@{my $_=shift};
...
# can call this with:
    fileop(['rename', $from_name, $tmpnam]);
    fileop(['link', $name_of_to_node, $from_name]);

 sub sched_unlink($$) { fileop(['unlink', $_[0]], "from inode ".$_[1])
+ }