I just figured out how to do this today, actually I finally found it on a newsgroup:

my $mode = (stat("file"))2;
my @mode = (($mode & 7000)>>9, ($mode & 0700)>>6, ($mode & 0070)>>3, ($mode & 0007));
my $finalmode = join('', @modelist);