#!/usr/bin/perl -w
# Filename : getdb.pl
use strict;
use WWW::Mechanize;
use LWP::Simple;
my $str1;
my $str2;
my $str3;
my $str4;
my $textpos;
my $ICAO = "0";
my $RegNo;
my $ACM;
my $AddInfo;
my $condition;
print "Downloading New Database\n";
my $filename = "/home/fred/perladsb/adsb.db";
my $content = get('http://www.live-military-mode-s.eu/overviewUS.php') or die 'Unable to get page';
print "Download Complete\n";
print "Building New Database\n";
open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
do {
# Get ICAO
$textpos = index($content, "|
Flash Sale Popup
|
