diff --git a/textarchive/mp3tags.pl b/textarchive/mp3tags.pl
new file mode 100755
index 0000000000000000000000000000000000000000..a233aa4e21d123564b9e414face52c9d563456b5
--- /dev/null
+++ b/textarchive/mp3tags.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/perl
+
+use strict;
+
+use MP3::Info;
+use Data::Dumper;
+$Data::Dumper::Indent= 1;
+
+my @PAR;
+while (my $arg= shift (@ARGV))
+{
+  if ($arg =~ /^-/)
+  {
+    &usage;
+  }
+  else
+  {
+    push (@PAR, $arg);
+  }
+}
+
+foreach my $file (@PAR)
+{
+  my $tag= get_mp3tag ($file);
+
+  print "file: [$file]\n";
+  print "tag: ", Dumper ($tag);
+}
+
+