--- trunk2/all2all.pl	2004/06/16 13:39:17	357
+++ trunk2/all2all.pl	2004/06/16 14:31:33	358
@@ -34,6 +34,12 @@
 
 print "rows: $maxmfn\n\n";
 
+my $rec = $webpac->{'data'}->{1};
+
+print $webpac->parse($rec,'pero v250^a - v999 bla'),"\n";
+
+__END__
+
 for (my $mfn = 1; $mfn <= $maxmfn; $mfn++) {
 	my $rec = $webpac->{'data'}->{$mfn} || die "no record with mfn $mfn";