Select Code to Download

sub onTick {
    our $x;
...
    }
    return $x;
}

sub onTick {
    our $x;
...
    }
    return $x;
}

#! perl -slw
use strict;
...
some text :was read
written :was read and written
read & written :was read and written