package Cmds;
use strict;
use warnings;

sub RO(\[$@%]@) { warn "Assigning $_[0] <= $_[1]"; ${$_[0]} = $_[1] };

RO our $sig => "&#65285;&#65285;"; #improbable filename prefix
warn "\$sig lives at " . \$sig;

sub skey($) {$sig.$_[0]}

our %Global_Cache = (
    skey("asis")				=>	0,
);

package main;

print "Done\n";