Undefined subroutine &main::num called at perl.pl line 6.