use diagnostics;
use strict;

print $x / 0;