#!/usr/local/bin/perl -w
###########################################
# browse - Browse anonymously in a VM
# Mike Schilli, 2011 (m@perlmeister.com)
###########################################
use strict;
use Sysadm::Install qw(:all);
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init($DEBUG);

my $vbm = "VBoxManage";
my $vm  = "Ubuntu 10.04";

tap $vbm, "snapshot", $vm, "restore", "Browse";
tap $vbm, "startvm", $vm;

print "Press Enter for shutdown";
<STDIN>;

tap $vbm, "controlvm", $vm, "poweroff";
tap $vbm, "snapshot", $vm, "restore", "Browse";