diff --git a/Paranoia b/Paranoia
index 8ba3672..a80b44d 100755
--- a/Paranoia
+++ b/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;
 }