write filesystems in Perl using FUSE