my $a = foo(burk());