1use Agar;
2
3Agar::InitCore('foo', {verbose => 1});
4Agar::InitVideo(320, 240, 32, {resizable => 1});
5
6my $win = Agar::Window->new();
7$win->caption("Perl ($0)");
8$win->show();
9
10Agar::EventLoop();
11
12