Undefined subroutine &main::func1 called at client.pl line 9.