#!/usr/bin/perl

use Y;
use strict;

my %hash_to_send;
$hash_to_send{first_colour} = "red";
$hash_to_send{second_colour} = "white";
$hash_to_send{third_colour} = "blue";

return &Y::module_subroutine($hash_to_send);

##</code><code>##

#!/usr/bin/perl
package Y;
@ISA         = qw(Exporter);
@EXPORT_OK   = qw(module_subroutine)

sub module_subroutine {
my($hash) = @_;
return "The colour of the sky is ".$hash{third_colour};
}

##</code><code>##

return &Y::module_subroutine(\$hash_to_send);