Select Code to Download

use Getopt::Long;
...
# if ( $opt->{help} ) { ... }
# foo( $opt->{host} );

sub debug {
    my $msg = shift;
...
    # ...
    return $stamp;
}

# ...
my @k = ( 'Status', 'Time Stamp', 'Value', 'Error Message' );
...
$one_line_summary = $h->{shift(@k)} . 'No Error. ';
$one_line_summary .= $h->{$_} . '. ' for @k;
$one_line_summary .= "$j.";

my @k = qw/ status time_stamp value error_message /;