Maybe there's a case for a module here. One that will do the right thing on each platform.

How about:

use File::System qw(fstype);

 ...

my $fstype = fstype($filnam);
[download]

Maybe it could do other things, like capacity, freespace.