# gash.pm
package gash;
use warnings;
use strict;

sub gashsub {
    print "In gashsub\n"; 
    exit 1;
}

END {

    print __PACKAGE__." is exiting $?\n";
}

1;

#  main.pl
#!/usr/bin/perl

use warnings;
use strict ;
use gash;

gash::gashsub();

END {

    print __PACKAGE__." is exiting $?\n";
}

##</code><code>##

In gashsub
main is exiting 1
gash is exiting 1