Uncaught exception from user code:
        Can't call method "put" on an undefined value at fac.pl line 59.
 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