tools/google_msgid.pl

   1 #!/usr/bin/perl
   2 my $browser   = 'mozilla';
   3 my $google_id = 'http://groups.google.com/groups?as_umsgid';
   4 $_ = <>;
   5 chomp;
   6 s/<|>//eg;
   7 system("$browser '$google_id=$_' &");