#!/usr/bin/perl

# coded by Victor Bittorf
# based on code by Mark Krasberg
use strict;
# pUp.pl
# Power up!
# Power up the dom[hubs]s...
my $str = join (" ", @ARGV);
if (! defined ($ARGV[0]) ) {
	$str = "all";
}
system ("power up $str");
