# ...

use strict;

# ...

  require Fcntl;
  import Fcntl ':mode';

  my $default =  S_IRUSR() | S_IWUSR() | S_IRGRP() | S_IWGRP() | S_IROTH();

# ...