use warnings;
use strict;

use Config::Tiny;

if (! $ARGV[0]){
    print "Usage: $0 servername\n";
}

my $server = $ARGV[0];

my $conf = Config::Tiny->read('~/vnc.conf');

my $cmd = "/usr/bin/vncviewer $server ";

while (my ($option, $value) = each %{ $conf->{vnc} }){
    if (defined $value && $value ne ''){
        $cmd .= "$option $value ";
    }
}

system($cmd);