#!/usr/bin/perl

$HOSTNAME = `hostname`;
chomp $HOSTNAME;

# $val = `cat /tmp/val`;
# chomp $val;

if( defined $ARGV[0] ) {
	$count = $ARGV[0];
} else {
	$count = 1;
}

# foreach $i ( 1 ... 1 ) {
# 	system "cat /proc/spts/poll";
# 
# 	# system "dmesg |tail -n 20";
# 
# 	select(undef, undef, undef, 1.01);
# 	++$val;
# }

print "starting sends\n";

foreach $i ( 1 ... $count ) {
	system "cat /proc/fast/test";
	select(undef, undef, undef, .1);
}