my $data = Data->new("aa", 65, 1.2, "misc", "data string");
print $data->print_secs();

package Data;

sub new {
    my ($class, $id, $secs, $vers, $misc, $data) = @_;

    my $self = {
        'id' => $id,
        'secs' => $secs,
        'version' => $vers,
        'misc' => $misc,
        'data' => $data,
    };

    bless $self, $class;

    return $self;
}

sub print_secs { # Returns $self->{'secs'} as a byte stream
    $self = shift;

    return pack('i', $self->{'secs'});
}