if ( $^O =~ /win32/) { get_userinfo_by_id_from_txtfile( $userid ); } else { get_userinfo_by_id_from_perlfunction( $userid ); } my $p_count_in_userinfo = count_p_in_array; report_p_count_at_interface( $p_count_in_userinfo, $reporting_interface);