Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
use strict;
...
    $folks[2] = 'joe';
    print "replaced moe\n"; 
} or warn $@;

Select or download this

Modification of a read-only value attempted at /home/arun/test/dlock.p
+l line 10.
Modification of a read-only value attempted at /home/arun/test/dlock.p
+l line 15.