use strict;
use warnings;
use End;

foo(4);
foo(6);

sub foo
{
    my ($n) = @_;
    my  $x  = end { print "\$n = >$n<\n" };
    return 1 if $n < 5;
    $n *= 52;
    return $n;
}