The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#!/usr/bin/perl
use lib qw#../lib #;
my $bc = BlueCoat::SGOS->new('debuglevel' => 0,);
my $file = $ARGV[0] || '../t/sysinfos/4006060000_5.3.1.4__0.sysinfo';
$bc->get_sysinfo_from_file($file);
$bc->parse_sysinfo();
print "cpl=\n";
print $bc->vpmcpl();
print "*********************************\n";
print "xml=\n";
print $bc->vpmxml();
print "\n";