programming-examples/perl/Win32/File system.pl

#!/usr/bin/perl -w
use Win32;

$fstype = Win32::FsType();

print "File System=$fstype\n";