pass.pl

#!/usr/bin/perl
# Author V.Varbanovski @nu11secur1ty

use strict;
use warnings;
use diagnostics;

my $change = `passwd root`;
	exit 0;