#!/usr/bin/perl

use strict;
use warnings;
use PackageName;

our $shared = "Hello World!\n";

my $returnedValue = PackageName->routine();

print $returnedValue;

__END__

##</code><code>##

package PackageName;

sub routine {
        print $main::shared;
        return "Done\n";
}

1;