Here is a code snippet from a tutorial i was looking at on the web

package TestSite::Login;
  $VERSION = v0.0.1;

  use v5.10.0;
  use warnings;
  use strict;
  use Carp;

  use Digest::MD5 'md5_hex';

  open(my $fh, '<', 'passwords') or die "cannot open passwords file $!
+";
  my %passwords = map({chomp; split(/:/, $_, 2)} <$fh>);

  sub check_password {
    my ($user, $pass) = @_;

    return(
      $passwords{$user} and
      md5_hex($pass) eq $passwords{$user}
    );
  }

  1;
[download]

This code has a use strict directive in it so I don't understand how it can call the md5_hex function without qualifying it with the full package name. I thought 'use strict' forces you declare lexical variables using 'my' and to reference to package variables and functions with their full names.

many thanks