Um módulo em Perl é uma coleção de sub-rotinas e variáveis ​​relacionadas que realizam um conjunto de tarefas de programação. Módulos Perl são reutilizáveis. Vários módulos Perl estão disponíveis na Comprehensive Perl Archive Network (CPAN). Esses módulos cobrem uma ampla gama de categorias, como rede, CGI, processamento XML, interface de banco de dados, etc.

O nome de um módulo deve ser igual ao nome do Pacote e deve terminar com a extensão .pm.

Exemplo: Calculator.pm

package Calculator;
  
# Defining sub-routine for Multiplication
sub multiplication
{
    # Initializing Variables a & b
    $a = $_[0];
    $b = $_[1];
      
    # Performing the operation
    $a = $a * $b;
      
    # Function to print the Sum
    print "\n***Multiplication is $a";
}
  
# Defining sub-routine for Division
sub division
{
    # Initializing Variables a & b
    $a = $_[0];
    $b = $_[1];
      
    # Performing the operation
    $a = $a / $b;
      
    # Function to print the answer
    print "\n***Division is $a";
}
1;

Aqui, o nome do arquivo é “Calculator.pm” armazenado no diretório Calculator. Observe que 1; é escrito no final do código para retornar um valor verdadeiro para o interpretador. Perl aceita qualquer coisa que seja verdadeira em vez de 1
 

Exemplos: Test.pl

#!/usr/bin/perl
  
# Using the Package 'Calculator'
use Calculator;
  
print "Enter two numbers to multiply";
  
# Defining values to the variables
$a = 5;
$b = 10;
  
# Subroutine call
Calculator::multiplication($a, $b);
  
print "\nEnter two numbers to divide";
  
# Defining values to the variables
$a = 45;
$b = 5;
  
# Subroutine call
Calculator::division($a, $b);

Saída:

Variáveis ​​de pacotes diferentes podem ser usadas declarando-as antes de usar. O exemplo a seguir demonstra isso
Exemplos: Message.pm

#!/usr/bin/perl
  
package Message;
  
# Variable Creation
$username;
  
# Defining subroutine
sub Hello
{
  print "Hello $username\n";
}
1;

O arquivo Perl para acessar o módulo é o seguinte
Exemplos: variable.pl

#!/usr/bin/perl
  
# Using Message.pm package
use Message;
  
# Defining value to variable
$Message::username = "Geeks";
  
# Subroutine call
Message::Hello();

Saída:

Exemplo:

#!/usr/bin/perl
  
use strict;
use warnings;
  
print" Hello This program uses Pre-defined Modules";

Saída:

Hello This program uses Pre-defined Modules