# ...

use strict;

# ...

  require Fcntl;
  import Fcntl ':mode';

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

# ...