Thanks. I am still confusing after reading the documents, would you pls show any simply example to describle how to use File::System and File::System::Object?

I already linked you to File::System. You don't tell me where with the documentation you have problems and what problem you are trying to solve using File::System, so I can't be more specific than telling you to read the documentation.

If you find the documentation for module to be incomprehensible, I would recommend you use a different, better documented module. But recommending a module alternative means that I know what your goal is.

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]