Select Code to Download

#!/usr/bin/perl -w
use strict;
...
sub get { return "Foo!" }
wrap get, post => sub { warn $_[-1] };
get();

Use of uninitialized value in warn at wrap.pl line 6.
Warning: something's wrong at wrap.pl line 6.