#!/usr/bin/perl -w use demotools; #-------------------------------------------------- # main system("clear"); demotools::cmd("tail -f /var/adm/messages"); #--------------------------------------------------