package SPEAK::ITALIAN;
use strict;
use warnings;
use Exporter;

use vars qw(@ISA @EXPORT);
@ISA = qw( Exporter );
@EXPORT = qw(hello);
use constant HELLO => "Hello";
use constant GOODBYE => "Goodbye";

sub hello {
    print HELLO . " in Italiano\n";
}
return 1;


##</code><code>##

#!/usr/bin/perl 
use strict;
use warnings;

use SPEAK::ITALIAN;

sub goodbye{
    print GOODBYE . " in Italiano\n";
}

hello();
goodbye();

##</code><code>##

Hello in Italiano!
GOODBYE in Italiano!