#!/usr/bin/perl

use charger_lib;

$cl = new charger_lib;


$foo = $cl->vm_read_data();

print "[$foo]\n";