diff --git a/utils/lpt b/utils/lpt
index 70c9d11..a255a8a 100755
--- a/utils/lpt
+++ b/utils/lpt
@@ -1460,7 +1460,7 @@ PS: Ce message est g
 Les roots ACU";
 
 	# create the message
-	eval "use Email::Sender::Simple qw(sendmail); 1";
+	require Email::Sender::Simple qw(sendmail);
 
 	my $mail = Email::MIME->create(
 	    header_str => [
@@ -1502,7 +1502,7 @@ Cordialement,
 Les roots ACU";
 
 	# create the message
-	eval "use Email::Sender::Simple qw(sendmail); 1";
+	require Email::Sender::Simple qw(sendmail);
 
 	my $mail = Email::MIME->create(
 	    header_str => [
@@ -1674,7 +1674,7 @@ PS: Ce message est g
 Les roots ACU";
 
 	# create the message
-	eval "use Email::Sender::Simple qw(sendmail); 1";
+	require Email::Sender::Simple qw(sendmail);
 
 	my $mail = Email::MIME->create(
 	    header_str => [
@@ -1739,7 +1739,7 @@ PS: Ce message est g
 -- 
 Les roots ACU";
 
-	eval "use Email::Sender::Simple qw(sendmail); 1";
+	require Email::Sender::Simple qw(sendmail);
 
 	my $mail = Email::MIME->create(
 	    header_str => [