### Script.pl

#!/usr/bin/perl

use Getopt::Long;
require "include.pl";


die "Oh yeeeah";


### include.pl

#!/usr/bin/perl

#Logging
$logfile = "log.txt";
  
sub printtolog { 
  
  $junk = `echo @_ >>$logfile`;
}

use subs 'die';
sub die {
  &printtolog(@_);
  print "IN MY DIE @_\n";
  CORE::die(@_);
}


sub plog {
  printtolog(@_);
  print(@_);
}