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

Paranoia

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