Select Code to Download

--- pm_chat2_orig    2009-10-06 13:26:40.540719370 +0200
+++ pm_chat2    2009-10-06 14:15:21.456289356 +0200
...
 
 while (1) {
   getprivatemessages;

#!/usr/bin/perl -w 

...
  }
}

#!/usr/bin/perl -w 

...
   $res->is_success or die "POST Error: " . $res->status_line . "\n";
   print $res->status_line, "\n";
}