#!/usr/bin/perl
#use strict;
#use warnings;

my $pid = fork();
exit 0 if $pid != 0;

my $retry_interval = 3;

while(1) {
	qx|/opt/interm/bin/pacutie -qws -nomouse -display transformed:Rot270|;
	sleep $retry_interval;
}

