#!/usr/bin/perl
use warnings;
use strict;

my $filename = __FILE__;

my %offset_type = ( number    => 1,
                    string    => 'abc',
                    reference => { a => 23 },
                    object    => bless do { \ my $object }, 'Class'
                  );


for my $type (keys %offset_type) {
    my $offset = $offset_type{$type};
    open my $FH, '<', $filename or die $!;
    eval {
        warn "$type without quotes\n";
        seek $FH, $offset, 0 or die "Report error - $!";
        warn "quoted $type\n";
        seek "$FH", $offset, 0 or die "Report error - $!";
    1 } or warn $@;
}