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);

##</code><code>##

[vnc]
-name = steve
-desktop = mine
-httpd = 0
-auth = steve
-geometry = 640x480
-depth = 1
-pixelformat =
-rfbwait =
-rfbauth =
-rfbport = 5590
-fp =
-pn =

##</code><code>##

/usr/bin/vncviewer servername -geometry 640x480 -auth steve -desktop mine -httpd 0 -depth 1 -name steve -rfbport 5590