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

use SPEAK::ITALIAN;

package SPEAK::ITALIAN;
sub goodbye{
    print GOODBYE . " in Italiano\n";
}

package main;
use vars "*goodbye";
*goodbye = \&SPEAK::ITALIAN::goodbye;

hello();
goodbye();

__DATA__
Hello in Italiano
Goodbye in Italiano