#! perl -slw
use strict;

sub divide {
    my( $e, $d ) = @_;
    return $e / $d;
}

my $result = eval{ divide( @ARGV ) } or die $@;

print "Result: $result";