diff --git a/stardate b/stardate
new file mode 100755
index 0000000..4a992a9
--- /dev/null
+++ b/stardate
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+my $trek_year;
+my $sd;
+
+($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = 
+    gmtime(time);
+
+$trek_year = ($year - 70) * 1000;
+
+$sd = ((($yday)*1000/365.25 + $trek_year));
+
+printf "%.1f\n", $sd;
+