#! /usr/bin/perl -P
use strict;

#define assert(exp) { if (!(exp)) { printf("assertion failed %s\n", #exp); } }

my $var = 30;
assert($var == 32);
exit 0;