#!/usr/bin/perl -w
use strict;
use Hook::LexWrap;
use Data::Dumper;

sub get { return "Foo!" }
wrap get, post => sub { print Dumper(\@_) };
my @n = get();
my $n = get();
get();