#! /usr/bin/perl

# bh0

   system "ssh bh0.physics.ubc.ca \ find_all";

#  the bh1->16 machines # 1 and 16 are currently down

for ($i=1; $i <= 15; $i++){

	system "ssh bh${i}.physics.ubc.ca \ find_all";
}

# the lnx machines

for ($i=1; $i <= 3; $i++){

	system "ssh lnx${i}.physics.ubc.ca \ find_all";
}