#!/usr/bin/perl

use warnings;
use strict;

sub poll {
    &poll;
}

exit;