Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
use strict;
...
warn "HTTP $status" if is_error $status;

system qw(diff -u), "$file.old", $file;
  2. or download this
     #!/usr/bin/perl -w
 use strict;
...
+warn "HTTP $status" if is_error $status;

 system qw(diff -u), "$file.old", $file;