#!/usr/bin/perl

#================================

use strict;
use lib '/path/to/admin';
use Links::init('/path/to/admin');
use Links qw/$IN $DB/;
use Links::SiteHTML;

local $SIG{__DIE__} = \&Links::fatal;
main();

#================================

sub main {
#---------------------------------------------------
# Display the newest link.

my $tab = $DB->table('Links');
$tab->select_options('ORDER BY ID DESC', 'LIMIT 1');

my $rec = $tab->select;

print $IN->header();
print Links::HTML::display('link', $rec);

}