#!/usr/local/bin/perl
use warnings;
use strict;
use Filesys::Type qw(fstype);

my $fs = '/home';
  warn "Not able to share with Windows"
    if (fstype($fs) ne 'vfat');

print fstype($fs) . "\n";