use My::Constants qw/ MY_FOO MY_BAR MY_LOGFILE_NAME /;

  my $fh = IO::File->new( MY_LOGFILE_NAME );
  ....