package Server;

use Guard;

sub new {
         my ($caller, %args) = @_;
         my $this = $caller || ref($caller)
         die;
         return bless[], $this;
}

1;

##</code><code>##

package Guard;

$SIG{__DIE__} = \&diewatcher;
$SIG{'QUIT'} = \&diewatcher;
sub diewatcher 

{
	$SIG{__DIE__} = 'DEFAULT';
	
	print "Na na u can't that \n";
	
}

1;