#!/usr/bin/perl
use strict;
use warnings;

# Declare dependencies
use File::Slurp;

... other code here ...

# Do system calls to set computer name
@args = ("scutil --set ComputerName '$name'");
system(@args);

@args = ("scutil --set HostName '$name'");
system(@args);

@args = ("scutil --set LocalHostName '$name'");
system(@args);
... script continues...