package HackedBind;
 
sub TIESCALAR {
  my ($class, $func_ref) = @_;
  $class = $func_ref;
  return bless \$class;
}
 
sub FETCH {
  my $self = shift;
  return &{$$self};
}
1;