corrected

1 files changed, 2 insertions, 2 deletions

diff --git a/challenge-031/anton-fedotov/task1-divide-by-zero.pl b/challenge-031/anton-fedotov/task1-divide-by-zero.pl
index ed83b6fe44..6f475ca7cf 100755
--- a/challenge-031/anton-fedotov/task1-divide-by-zero.pl
+++ b/challenge-031/anton-fedotov/task1-divide-by-zero.pl
@@ -1,4 +1,4 @@
-#1/usr/bin/perl 
+#!/usr/bin/perl 
 
 use strict;
 use warnings;
@@ -6,7 +6,7 @@ use v5.10;
 
 sub check_div_zero {
     my ( $numerator, $denominator ) = @_;
-    return 'Can\'t divide by zero' if cos($denominator) == 1;
+    return 'Can\'t divide by zero' if !eval{$numerator/$denominator};
     return $numerator/$denominator;
 }