Select Code to Download

#!/usr/bin/perl

...
}

1;

use strict;
use warnings;
...
sleep(10);
my $heading_string2 = $nmea_unit->get_heading();
print "$heading_string2 is not most recent value\n";

    # tie filehandle to read/write from serial port (nmea device)
    my $fh = gensym();
...
    }, $class;
    $self->{'FileHandle'}->autoflush(1);
    return $self;