#!/usr/bin/perl

package ABC;

sub new_time_var () {
               # ^^prototype

    print "ABC::new_time_var() called.\n";
}

package PQR;
    
sub new_time_var {

    ABC::new_time_var();    # prototype-compatible call --> works
    
    ABC::new_time_var(@_);  # incompatible --> "Too many arguments for ABC::new_time_var ..."
}

new_time_var();