Select Code to Download

#!/usr/bin/perl -w
use strict;
...
( $2, $66 ) = ( 1, 2 );
__END__
Modification of a read-only value attempted at - line 4.

Modification of a read-only value attempted at - line 4 (#1)
    (F) You tried, directly or indirectly, to change the value of a
...
Uncaught exception from user code:
        Modification of a read-only value attempted at - line 4.