1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl # MediaWiki -> RCS scraper use warnings; use strict; require LWP::UserAgent; my $wiki = shift @ARGV;