Select Code to Download

use File::stat;
$st = stat($file) or die "No $file: $!";
my $mode =  $st->mode;
my $uid = $st->uid;
my $gid = $st->gid;