print "Creating the libguestfs handle\n";
my $h = Sys::Guestfs->new ();
-$h->add_drive ($ARGV[0]);
+$h->add_drive_opts ($ARGV[0], format => "raw");
print "Launching, this can take a few seconds\n";
$h->launch ();
-$h->wait_ready ();
print "Looking for PVs on the disk image\n";
my @pvs = $h->pvs ();