Select Code to Download

use strict;
use warnings;
...
my $offset = (split(/\s+/, (grep(/^\*/, `$cmd`))[0]))[8];

print "$offset\n";

use strict;
use warnings;
...
my $offset = (split(/\s+/, $current_time_source))[8];

print "$offset\n";

use strict;
use warnings;
...
die "$current_time_source: No offset" unless(defined($offset));

print "$offset\n";