Select Code to Download

#!/usr/bin/perl
use strict;
...
@args = ("scutil --set LocalHostName '$name'");
system(@args);
... script continues...