#! /usr/bin/env perl

use warnings;
use strict;

my $target = shift  or die "Usage: $0 hostname [port]\n";
my $port = shift; $port = 5900 unless $port;
`vncviewer -compresslevel 6 -encodings "copyrect tight hextile zlib corre rre raw" -quality 5 $target:$port`;