#!/usr/bin/perl


$i=1;
$base = 'url_get http://www.vanderbilt.edu/VUCC/Misc/Art1/trochoid/epi.cgi?fx=';
while ($i < 5){
	$cmd = $base.$i."&mv=43&color=k&off=23 >file.".$i;	
	system($cmd);
	print "$cmd\n";
	while(-z "file.$i"){ }
	open(LINE,"file.$i");
	while ($line = <LINE>){
		if($line =~ /temp/){
				
		}
	}
	$i++;	
}
