Just fixed it. The "File::System->new" will return a object and can use methods provided by "File::System::Object" on it. Thanks for your kindly suggestion.

#!/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($@);
[download]