Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
 unlink("$ARGV[1]/$_") or warn("$! unlinking $ARGV[1]/$_\n")
  if(s/$ARGV[1]// && -f "$ARGV[1]/$_" && !-e "$ARGV[0]/$_" );
}

Select or download this

/****************************/
  jason@gost.net, wh@ckz.org
    http://jason.gost.net
/*****************************/