#!/usr/bin/perl

#A Script to kill users on a system repeatedly, essentially locking them out.
#Meant to be run via SSH. Needs root privileges.

#Take in the account to NOT kill (aka the user running this script)
my $account_to_save = @ARVG[0];

#Open a pipe from the who command
open(WHOPROC, "| who");

#Loop through output of who command
while(<WHOPROC>)
{
	print $_;
}