Here's a script that shows how to use stat to get what you're looking for and an example invocation.

$ cat fileperm
#!/usr/bin/perl

my $filename = 'fileperm';

my $mode = (stat $filename)[2];

$mode = $mode & 07777; # mask off file type;
my $usr = ($mode & 0700) >> 6;
my $grp = ($mode & 0070) >> 3;
my $oth = $mode & 0007;

printf "$filename has permissions %04o (%i,%i,%i)\n", $mode, $usr, $gr
+p, $oth;
$ ./fileperm
fileperm has permissions 0775 (7,7,5)
$ ls -l fileperm
-rwxrwxr-x    1 chicks   chicks        289 Apr 21 11:32 fileperm
[download]