use File::System qw(fstype);

 ...

my $fstype = fstype($filnam);