--- Convert-UUlib/example-decoder	2001/06/12 03:20:44	1.2
+++ Convert-UUlib/example-decoder	2002/03/31 21:42:36	1.3
@@ -31,6 +31,16 @@
    print uc(strmsglevel($_[1])),": $msg\n";
 });
 
+SetFileNameCallback sub {
+   return unless $_[1]; # skip "Re:"-plies et al.
+   my ($subject, $filename) = @_;
+   ## if we find some *.rar, take it
+   return $1 if $subject =~ /(\S+\.(?:[rstuvwxyz]\d\d|rar))\s/i;
+   # otherwise just pass what we have
+   return ();
+};
+
+
 for(<uusrc/*>) {
    my($retval,$count)=LoadFile ($_,$_,1);
    print "file($_), status(",strerror($retval),") parts($count)\n";