- or download this
package F;
my %D = ( foo => 1 );
...
package main;
my $f = new F;
print $f->f_1('blah');
- or download this
F -> Foo
%D -> Default
...
$s -> self
main
$f -> foo_obj
- or download this
j is a jack
h is a host
...
b is a building
r is a room
m is a MAC address