Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
   my $guard1 = My::Guard->new(sub { $sth->finish });
   my $guard2 = My::Guard->new(sub { $guard1; });
}

Select or download this
```
>perl script.pl

>
```