#!/usr/bin/env perl
# For testing next, next+ next-, step+, step-, and set different;
sub p() {
return 5;
};
# To have something to "step different" with.
my $x=1; my $y=2;
$x=$y; $y = 4; $x += $y;
$x=6; $y = p(); my $z = p();
# To have something to "step" with
$x = 8;
$x += $y;
$x += $z;