diff --git a/perl-script/provision.pl b/perl-script/provision.pl
index d2017c5..aa187b6 100644
--- a/perl-script/provision.pl
+++ b/perl-script/provision.pl
@@ -3,11 +3,27 @@
 use warnings;
 use strict;
 
+# provision.pl
+# script to provision a tilde instance
+# 
 # This script is intended to be run on a fresh
 # OpenBSD install
+#
+# gashapwn
+# Nov 2020
 
+
+my $pwuid;
 my $admin_un;
 
+
+# Make sure we're running as root
+$pwuid = getpwuid( $< );
+
+if($pwuid ne "root"){
+    die "script must be run as root";
+}
+
 # Check /etc/passwd for the username created during
 # installation
 if( ($admin_un) = `tail /etc/passwd | grep -v "nobody:"` =~ /([^:]+):[^:]+:[0-9]{4,}/){