Help for this page

Select Code to Download


  1. or download this
     #!/usr/bin/perl

...
sub FETCH {
  return $database->{"One"};
}
  2. or download this
    #!/usr/bin/perl

...
tie (%two, Database, "One", "soft");

print $two{"One"};