sub blog {
    my( $x )= @_;
    print "\$x = $x\n";
    if(  $x  ) {
        blog( $x - 1 );
        print "\$x still $x\n"
    }
}
blog( 1 );
__END__
$x = 1
$x = 0
$x still 1