#!/usr/bin/env perl
$host=$ARGV[0];
for ($i = 1; $i <= 1024; $i++) {
	system("./myscan $i $host");
}