Select Code to Download

version: pmchat
        cat pmchat | grep '\$$Id' | head -1 | cut -f4 -d' ' > version

sub autoupdate {
  my $r=$ua->request(GET "http://www.mrnick.binary9.net/pmchat/version
+");
...
  print "/tmp/pmchat.$ver now contains the newest version.\n";
  
}