#!/usr/bin/env perl

use News::Article;
use strict;

my $art = new News::Article(\*STDIN);
my $ref = $art->header('references');
return "no references\n" unless $ref;
my @ref = split(/\s+/, $ref);  
my $last = shift @ref;
my $cmd = "article '$last'";
print "$cmd\n";
system $cmd;