Select Code to Download

 my @latitude = split(/\./, $_[5]);
my $latstring = sprintf("%8s", ($latitude[0] . $latitude[1])) ;

while (<LOGFILE>) {
chomp $_;
...

$lastline = $_[[0];
}