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;
}

##</code><code>##

16:31 >perl 1810_SoPW.pl
$n = >4<
$n = >312<

16:31 >