#!/usr/bin/perl

$OLDVMDIR = "/sunstorage_kvm_images/kvm_images/images/";
print "$OLDVMDIR \n";

$VMNAME = "junkvm";
print "$VMNAME \n";

$VMSFX = "-vda.img";
print "$VMSFX \n";

$CONCAT = $OLDVMDIR . $VMNAME . $VMSFX;
print "$CONCAT \n";


@VMSHUT = `cat /tmp/virshlist_shutdown`;
foreach $VMSHUT (@VMSHUT)
        {
          chomp $VMSHUT;
          $VMFILE = $OLDVMDIR . $VMSHUT . $VMSFX;
          print "$VMFILE \n";
        }