#!/usr/local/bin/perl
# Jaime Prilusky, 2009

  my $num = $ARGV[0];
  my $answer;

  # make divide-by-zero nonfatal
  eval { $answer = 10 / $num; }; 
  if ($@) {
    warn $@;
  } else {
    print "10/$num is $answer\n";
  }

  print "here the program continues ...\n";