Put your code inside of an eval. If an error occurs, the $@ variable will contain 
the error. You can also raise an error by using die inside of an eval.

You can catch the errros by using eval function.
Keep your code in eval block some thing like shown below.
Eg.,
#################################
eval {
my $a = 0;
my $b = $a/0;  #Dividing 0 with 0 is definitely an error
};

if ($@) {
print "\n Error in your code"; 
}


############################
-> Eval block always ends with a semi-colon. $@ will catch
the errors persent.

-> If any errors are present $@ will be set otherwise $@
will not be set

-> Unfortunately in Perl we don't have Explicit Error
handling techniques like some other languages like java etc
I mean like IOException etc.,