Index: trunk/Nebulous-Server/scripts/ptest.pl
===================================================================
--- trunk/Nebulous-Server/scripts/ptest.pl	(revision 4440)
+++ trunk/Nebulous-Server/scripts/ptest.pl	(revision 4931)
@@ -1,6 +1,6 @@
-#!/usr/bin/perl
+#!/usr/bin/env perl
 
 use strict;
-use warnings;
+use warnings FATAL => qw( all );
 
 use lib "./lib";
@@ -12,6 +12,5 @@
 );
 
-my $key = shift;
-
+my $key = shift || 'foobar';
 my $kids = shift || 1;