Help for this page

Select Code to Download


  1. or download this
    #! perl
use strict;
...
printf "Now there are %d Widgets\n", Widget::get_count;
undef $w1;
printf "Now there are %d Widgets\n", Widget::get_count;
  2. or download this
    15:52 >perl 856_SoPW.pl
Now there are 3 Widgets
Now there are 2 Widgets

15:52 >