diff --git a/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm b/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm
new file mode 100644
index 0000000000000000000000000000000000000000..ea3f34b17e7f2b8fc0682c2cf629dd4c22be640b
--- /dev/null
+++ b/misc-scripts/xref_mapping/XrefParser/UniProtAltParser.pm
@@ -0,0 +1,26 @@
+# See UniProtParser.pm for docs.
+
+package XrefParser::UniProtAltParser;
+
+use strict;
+use POSIX qw(strftime);
+use File::Basename;
+
+use base qw( XrefParser::BaseParser );
+use base qw( XrefParser::UniProtParser );
+use vars qw(@ISA);
+@ISA = qw(XrefParser::UniProtParser);
+my $verbose;
+
+
+
+sub get_name {
+  my $self = shift;
+  my $acc  = shift;
+  my $label = shift;
+
+  return $label;
+}
+
+
+1;