my $sub = $tied;
    print $sub->(5), "\n";

##</code><code>##

sub wrap {
   my ($r) = @_;
   return sub {
      print "Checking for pause...\n";
      return $r->{subref}->(@_);
   };
}

my $tied = wrap($r);