Select Code to Download

#!perl

use warnings;
...

POE::Kernel->run();
exit;

        keepalive => sub {
            my ( $io_wheel, $kernel ) = @_[ ARG0, ARG1 ];
            $io_wheel->put( "keepalive" );
            $kernel->delay_add( 'keepalive' => 10 );

Uncaught exception from user code:
        Can't call method "put" on an undefined value at fac.pl line 5
+9.
 at /usr/local/share/perl/5.14.2/POE/Kernel.pm line 1256
        POE::Kernel::_rethrow_kr_exception('POE::Kernel=ARRAY(0x88f2e8
+)') called at /usr/local/share/perl/5.14.2/POE/Kernel.pm line 1244
        POE::Kernel::run('POE::Kernel') called at fac.pl line 65