package VesrRec;

use strict;
use warnings;
use Spiffy -Base;

field 'raw';

sub new() {
    my ($class, $raw) = @_;
    my $self = bless {}, $class;

    $self->raw($raw);
    return $self;
}

package main;

my $rec = VesrRec->new ('This one');

print $rec->raw ();

##</code><code>##

This one