package Utils;

use strict;
use warnings;
require Exporter;

our @ISA = qw(Exporter);
our @EXPORT = qw(Log); # symbols to export on request

sub Log {
  my $message = shift;
  print STDERR "$message\n";
}

# Note that Log() is also called from the Utils namespace:
sub Start_app {
  Log("App started.");
  # Handle other stuff

}

1;


##</code><code>##

#This file: app.pl
use strict;
use warnings;

use Utils1;

Log("App started");

##</code><code>##

$ perl app.pl
Undefined subroutine &main::Log called at app.pl line 8.
$