use warnings;
#use strict;
use Getopt::Long;

$result = GetOptions( "OIMID=s" => \$oimid, );

sub StingtoNum() {
    if ( $oimid eq "Google" ) {

        return "01";
    }
    elsif ( $oimid eq "DELL" )

    {
        return "02";
    }
    else {
        return "00";
    }
}

sub Add() {
    $oim     = &StingtoNum;
    $version = "00";
    $sum     = $oim . $version;
    print "$sum";
}

Add();
print "\n";