# J.M., 2019-10-07 {
sub getPlatform()
{
    my $platform = system('dpkg --print-architecture');
    $platform =~ s/^\s+|\s+$//g;
    return $platform;
}
# } J.M., 2019-10-07