Maze 2008: Sample Program

0401.pl

#!/usr/bin/perl
require Term::Screen;

$mytv=new Term::Screen;
$mytv->clrscr();
$mytv->at(20, 12);
$mytv->puts("Hello World!");
$anykey=$mytv->getch();
$mytv->clrscr();