Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
    $y++; print "line 7 ---- x = $x -- y = $y\n";
    $x -= $y; print "line 8 ---- x = $x -- y = $y\n";
}

Select or download this

use strict;
use warnings;
...
    $y++; print "line 7 ---- x = $x -- y = $y\n";
    $x -= $y; print "line 8 ---- x = $x -- y = $y\n";
}