#!/usr/bin/perl -w open(LCD,">/dev/lcd")||die "ERROR: can not write to /dev/lcd\n"; $|=1; my $i=0; while(1){ $i++; print LCD chr(0xFE),"X"; # clear the display print LCD "Count $i\n"; sleep(1); } close LCD; __END__