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