#! /usr/bin/perl

# profiler values are in the form: '    __key__: _____value____' (one per line)
my $name = `/usr/sbin/system_profiler system_profiler SPHardwareDataType SPSoftwareDataType grep 'Computer Name'`;
my $regex = '^\s*Computer Name: (.*)$';
my ( $value) = ( $name =~ /$regex/m );

#calculate a score using the first 2 letters
print ord ( substr $value, 0, 1 ) * 256 + ord ( substr $value, 1, 1 );