my $im1 = 30;
  my $cl2 = 20;
  my $answer = ($im1/$cl2);
  print $answer;