sub new_closure {
  my %self=@_; # initdata
  $self{methode1} = sub {
	  my ($para1)=@_;
	  return "$para1 $self{data1}";
  };
  return \%self;
}  
$inst=new_closure(
           data1 =>"value 1",
       );

print $inst->{methode1}("GET: ");