#!/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};
}