package PackageName;

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

1;