#!/usr/bin/perl
use strict;
use warnings;

print "\nGear Calculator\n\n";

print "Enter Wheelsize (inches): ";
my $wheel = <>;

print "Enter Chainwheel Teeth: ";
my $teeth = <>;

print "Enter Cog Teeth: ";
my $cog = <>;

my $gear = $wheel * $teeth / $cog;

print "\nYour gear is: ", $gear, "\n\n";