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