#!/usr/bin/perl

@servers = ('server1', 'server2', 'server3', 'server4');
my $num_servers = $#servers+1;
`echo "shutdown -hf now" | ssh root@${servers[rand($num_servers)]} -T sudo su - root`;