Select Code to Download

use File::stat qw(stat);

...
  my $stat = stat($path) or return -1;
  return $stat->mode;
}