use vars '%template';
sub test{
    my $in = shift;
    print "Bin in test:".$$in{'site'}."<br>\n";
    print "Bin in test:".$template{'site'}."<br>\n";
    $$in{'site'} = "news";
}
1;