Migrated to not use the fairly old and out of date notwhoami and moved to Data::Faker

Paranoia

@@ -5,6 +5,9 @@ use POSIX;
 use PDF::API2;
 use PDF::Table;
 use List::Util 'shuffle';
+use Data::Faker;
+
+my $faker = Data::Faker->new();
  
 generate();
 
@@ -172,8 +175,8 @@ sub roll{
 }
 
 sub name{
-	my $n = `notwhoami|head -n1|cut -d' ' -f1`;
+	my $n = $faker->name;
-	chomp $n;
+	$n =~ s/ .*//;
 	return $n;
 }