diff --git a/show_url.pl b/show_url.pl
new file mode 100755
index 0000000000000000000000000000000000000000..9840a1f835e784773cbc8141306c763dcfaf9aa8
--- /dev/null
+++ b/show_url.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+
+use strict;
+
+use Data::Dumper;
+$Data::Dumper::Indent= 1;
+$Data::Dumper::Sortkeys= 1;
+
+use Util::Simple_CSV;
+
+my $fnm= shift(@ARGV);
+
+my @columns= qw(url canonical_url doi identifier);
+
+my $csv= new Util::Simple_CSV (load => $fnm,  separator => "\t");
+my $data= $csv->{data};
+
+foreach my $row (@$data)
+{
+  print __LINE__, " row: ", Dumper($row);
+  my ($url, $canonical_url, $doi, $identifier)= map { $row->{$_} } @columns;
+
+  $doi= $identifier    unless ($doi);
+  $url= $canonical_url unless ($url);
+  my $doi_link= 'https://doi.org/'. $doi;
+
+  print __LINE__, " doi=[$doi] url=[$url] doi_link=[$doi_link]\n";
+  # system ('xdg-open', $url);
+  system ('xdg-open', $doi_link);
+
+  <STDIN>;
+}
+
+
+