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

kelvin (@ARGV);

sub kelvin
{
    my $start = $_[0];
    my $end = $_[1];
    my $inc = $_[2];
    
    if (($start > 0) and ($start < $end))
    {
        print "Fahrenheit Celcius\n";
        my $loop = $start;
        while ($loop < $end)
        {
            print $loop, "\n";
            $loop = $loop + $inc;
        }
    }
    else
    {
        die ("You entered bad arguments dumbass!");
    }
}