if (test_conditions(@info)) {
  eval(do_something(@info));
  warn "Failed to do whatever because '$@'" if ($@);
} else {
  # handler method for whenever something is 'screwed up'
  # such as when test_conditions() fails...
  something_screwed_up();
} 

##</code><code>##

print join(" ", map { sprintf "%#02x", $_ }unpack("C*",pack("L",0x12345678)))