Select Code to Download

#! /usr/bin/perl -P
use strict;
...
my $var = 30;
assert($var == 32);
exit 0;

assertion failed 30 == 32