Inode numbers are not reported on Windows so the above is OS-specific, as is this version:

sub all_same_file {
  my @desc = map {my @s = stat; "@s[0,1]"} @_;
  @_ == grep {$desc[0] eq $_} @desc;
}
[download]