Select Code to Download

    sub FETCH {
        my $self = shift;
        do_domething;
        $self->SUPER::FETCH(@_);
    }

$ perl586 -wle 'sub f { $_[0] = "x" } $a = "abcd"; f(substr($a,0,2)); 
+print $a'
xcd