#!/usr/bin/perl

use strict;
use warnings;
use File::System;
use base qw( File::System::Object );

my $obj = File::System->new("Real");
my $root = $obj->root;
my $value = $obj->get_property("object_type");

die $@ if($@);