01 #!/usr/local/bin/perl -w
02 use strict;
03 use Sysadm::Install qw(:all);
04 use Log::Log4perl qw(:easy);
05 
06 Log::Log4perl->easy_init($DEBUG);
07 
08 my $vbm = "VBoxManage";
09 my $vm  = "Ubuntu 10.04";
10 
11 tap $vbm, "snapshot", $vm, "restore", "Browse";
12 tap $vbm, "startvm", $vm;
13 
14 print "Press Enter for shutdown";
15 <STDIN>;
16 
17 tap $vbm, "controlvm", $vm, "poweroff";
18 tap $vbm, "snapshot", $vm, "restore", "Browse";