#!/usr/bin/env perl

use strict;
use warnings;

use Fuse;

my $priv_data = 'PRIVDAT';

Fuse::main (
    debug       => 1,
    init        => sub { return $priv_data },
    mountpoint  => 'mnt',
    getattr     => sub {
        Fuse::fuse_get_context();
        return qw[0 0 0040700 1 0 0 0 0 0 0 0 4096 0]
    },
);