#!usr/bin/perl -w use 5.014; my $time = if ($time <= 49) { my $result = $time / 1; print "Time Points\n"; printf "%3f %3f\n", $time, $result; } elsif ($time <= 99) { my $result = $time / 2 * 1; print "Time Points\n"; printf "%3f %3f\n", $time, $result; } elsif ($time <= 199) { my $result = $time / 3 * 2; print "Time Points\n"; printf "%3f %3f\n", $time, $result; } elsif ($time <= 299) { my $result = $time / 4 * 3; print "Time Points\n"; printf "%3f %3f\n", $time, $result; } elsif ($time <= 500) { my $result = $time / 5 * 4; print "Time Points\n"; printf "%3f %3f\n", $time, $result; }