#!usr/bin/perl -w

use 5.014;

my $t = <STDIN>;							
my $classmax = &clm($t, 49, 99, 199, 299, 500); 

sub clm {
  my($c) = shift @_; 							
    if (@_ != 5) { 	   						
    print "Something went wrong";			
      foreach (@_) {						
        if ($c < $_) {				  	
	my(@div) = shift @_;			
	} elsif ($c > $_) {				
	  my $divi = @div;			
	  my $re1 = $t / $divi;		
	  my $zre = $divi - 1;		
	  my $re2 = $re1 * $zre;		
	print "Your points are $re2\n";
      }
    }
  }
}