my @stat_info = stat($filename);
    my $file_mode = $stat_info[2];

    ...

    # or
    my $file_mode = (stat($filename))[2];

    my $file_type = S_IFMT($file_mode)