Select Code to Download

--- orig\Everything.pm  2004-12-27 13:17:23.025625000 +0100
+++ new\Everything.pm   2004-12-27 13:20:39.213125000 +0100
...
           for (split /\Q$split\E/, $vars_str) {
               s/~(\w\w)/ chr(hex($1)) /ge;
               push @$vars, $_ eq 'U'

sub printLog
{
...

    return 1;
}

{
  my $logfile;
...
    return 1;
  }
}