#!/usr/bin/perl -w

use strict;

die "No state given" if (@ARGV != 1);

if ($ARGV[0] eq '0x00') {
	system "/usr/sbin/vidcontrol -s 1 < /dev/ttyv0";
} else {
	system "/usr/sbin/vidcontrol -s 9 < /dev/ttyv0";
}