use File::Slurp "write_file";
write_file("filename", $mac) or die "Error writing to file: $!";

##</code><code>##

open my $handle, "> filename" or die "Couldn't open file: $!";
print $handle $mac;
close $handle;