# ...

use strict;

# ...

  require Fcntl;
  import Fcntl ':mode';

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

# ...

##</code><code>##

# ...

use strict;

# ...

  require Fcntl;
  import Fcntl ':mode';

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

# ...