sub _die {
   my $err_no = shift;
   my @msg = @_;
   
   print STDERR join "\n",@msg;
   exit $err_no;
}