#!/usr/bin/perl

use strict;
use warnings;

use FindBin qw($RealBin);
use lib "$RealBin/../lib";

use PVETUI;
use Sys::Hostname qw(hostname);

if (@ARGV && $ARGV[0] eq '--version') {
    print "pvetui $PVETUI::VERSION\n";
    exit 0;
}

print 'pvetui ' . $PVETUI::VERSION . ' - hello from ' . hostname() . "\n";
exit 0;
