get list of cpu flags for quick checking

proc_cpuinfo.pl

use v5.10;

sub cpuinfo
{
        my $flags;

        open my $cpuinfo, "<", "/proc/cpuinfo" or die "failed to open /proc/cpuinfo: $!\n";
        while (<$cpuinfo>)
        {   
                if (/flags/)
                {   
                        s/^flags\s+:\s+//;
                        for my $f (split /\s+/)
                        {   
                                $flags->{$f} = 1;
                        }   
                }   
        }   
        close $cpuinfo;

        return $flags;
}

say for (sort keys %{&cpuinfo});