#!/usr/bin/perl

use strict;
use warnings;

sub returnsTrueButExpectedFalse {return 1 and 0}

die if 1 and 0;                        #does not die, but
die if returnsTrueButExpectedFalse();  #does die here, surprisingly