# tested with Perl 5.6.x
perl -e "do(!$var);"