copy 'x', my $fn3 = do { { my $h = Temp-> new } }-> filename or die;