coreIverride.pl

#override the core subroutine (inbuilt function) of perl
BEGIN {
  *CORE::GLOBAL::chdir =  sub {
    print "perl core funtion override sample";
  }
  *shove = \&CORE::push;
}


chdir ;

# CORE::chdir #"Still u can access the core function using this way\n";

shove @arr,1;