worr · August 7, 2012 19:55
diff --git a/russian_roulette.pl b/russian_roulette.pl
 #!/usr/bin/env perl

 use strict;
 use warnings;
 use 5.010;

 my $char = chr(int(rand(26) + 97));
 open(my $fh, ">", "/proc/sysrq-trigger");
 say $fh $char;
 close($fh);
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use 5.010;

	my $char = chr(int(rand(26) + 97));
	open(my $fh, ">", "/proc/sysrq-trigger");
	say $fh $char;
	close($fh);
No results found