How can I tell if a file is on a remote filesystem with Perl?

Question

Is there a quick-and-dirty way to tell programmatically, in shell script or in Perl, whether a path is located on a remote filesystem (nfs or the like) or a local one? Or is the

Answer 1

On some systems, the device number is negative for NFS files. Thus,

print "remote" if (stat($filename))[0] < 0