#!/usr/bin/perl


my $obj	= new MyObject ('GB-LAQ-05-00017');

print $obj."\n";


package MyObject;

sub new {
    my($pkg, $string) = @_;

    bless {
        _string => $string,
    }, $pkg;
}

sub SCALAR {
    $_[0]->{_string};
}