From fb5a1a56bb6ae9367b51405912bd50ad579d2a33 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Mon, 13 Mar 2023 18:56:22 +0100
Subject: Challenge 011 task 1

---
 challenge-011/jo-37/perl/ch-1.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 challenge-011/jo-37/perl/ch-1.pl

diff --git a/challenge-011/jo-37/perl/ch-1.pl b/challenge-011/jo-37/perl/ch-1.pl
new file mode 100755
index 0000000000..63f4a768d3
--- /dev/null
+++ b/challenge-011/jo-37/perl/ch-1.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+
+use v5.16;
+use warnings;
+
+# 212 F - 32 F = 180 degF = 100 K, i.e. 1.8 degF = 1 K
+# Fahrenheit to Kelvin: (F - 32)/1.8 + 273.15
+# Celsius to Kelvin: C + 273.15
+# (x - 32)/1.8 + 273.15 = x + 273.15
+# x - 32 = 1.8 * x
+# -32 = 0.8 * x
+# x = -40
+say -40;
-- 
cgit