Help for this page

Select Code to Download


  1. or download this
    my ($host)=@_; $host="foo";
  2. or download this
    my $hash=shift; $hash->{host}="foo";
  3. or download this
    package Foo;
use strict;
...
                },a=>1,b=>2);
my $tt=Foo->new();
print Dumper $t,$tt;