diff --git a/78 Sine Wave/perl/sinewave.pl b/78 Sine Wave/perl/sinewave.pl
new file mode 100644
index 00000000..a28d3865
--- /dev/null
+++ b/78 Sine Wave/perl/sinewave.pl	
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+print ' ' x 30 ."SINE WAVE\n";
+print ' ' x 15 ."CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY\n";
+print "\n\n\n\n\n";
+
+my $B=0;
+
+for (my $T=0; $T<40; $T+=.25) {
+	my $A=int(26+25*sin($T));
+	print ' ' x $A;
+	if ($B==0) { print "CREATIVE\n"; }
+	if ($B==1) { print "COMPUTING\n"; }
+	$B= !$B; #Toggle
+	}