UserTag scratchd Order name

UserTag scratchd InvalidateCache

UserTag scratchd PosNumber 1

UserTag scratchd Routine <<EOR

sub {

my $var = shift;

return delete $::Scratch->{$var};

}

EOR