#!/usr/bin/perl -w
# File: useString

package StringIt;
sub TIEHASH { return bless \my $whatever, shift() }
sub FETCH { shift; return $_[0] }

package main;

tie %s, StringIt;
print "Calling sqrt[17] results in $s{ sqrt(17) }\n";


