#! /usr/bin/perl

# the bh machines

#   system "ssh bh0.physics.ubc.ca \ find_inc";

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

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

# the lnx machines

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

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