exit from subroutine perl
last, next, exit all do not work for exit from subroutine but return works for exit from subroutine example input 12 sub fun { my $number = shift; if($number == 12){ print "\n ok bye i am going to outside from subroutine \n"; return; } print "\n anop singh ranawat \n"; } my $number = <>; &fun($number); print "\n have a nice day \n"; result ok bye i am going to outside from subroutine have a nice day