Select Code to Download

sub _remove_snap {
    my ( $vm ) = @_;
...
    print Dumper @snaps;
    return \@snaps;
}

$VAR1 = bless( {
...
               }, 'VirtualMachineSnapshotTree' );
$VAR1 = [];