my $x = 23;
my $y =  0;

print $y > 0 ? $x/$y : 0, "\n";

# oder

die "fehler ...." if $y == 0;