#!/usr/bin/env perl

use strict;
use warnings;

my $name = qq(3c0754131c6d);

my $result;

eval { $result = qx(scutil --set LocalHostName $name) };