Source code in the perl programming language

use Config;
print "UV size: $Config{uvsize}, byte order: $Config{byteorder}\n";


use 5.010;
use Config;
my ($size, $order, $end) = @Config{qw(uvsize byteorder)};
given ($order) {
    when (join '', sort split '') { $end = 'little' }
    when (join '', reverse sort split '') { $end = 'big' }
    default { $end = 'mixed' }
}
say "UV size: $size, byte order: $order ($end-endian)";